DateEx <- function(d1=Sys.time(), d2=0){
  as.POSIXct(d1) + d2
}