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")))
  }

Try the SASxport package in your browser

Any scripts or data that you put into this service are public.

SASxport documentation built on March 13, 2020, 1:59 a.m.