R/xport.dateFMT.R

Defines functions xport.dateFMT

xport.dateFMT <- function(when, fill=16)
  {
    if(missing(when)) when <- Sys.time()
    
    date.format <- sprintf("%%-%d.%ds", fill, fill)
    toupper(sprintf(date.format, format(when, "%d%b%y:%H:%M:%S")))
  }
warnes/SASxport documentation built on March 12, 2020, 7:27 p.m.