z <- "Something %sysfunc(Sys.Date(), date7.) and %sysfunc(Sys.time(), time5.)"