以指定的时区显示当前时间
format(Sys.time(), tz = 'Asia/Taipei', usetz = TRUE)
计算时间差
st = Sys.time()
ed = Sys.time()
format(ed-st, tz = 'Asia/Tokyo', usetz = TRUE)
同一时间,不同时区的表示
st <- Sys.time()
format(st, tz = 'Asia/Taipei', usetz = TRUE)
format(st, tz = 'Asia/Tokyo', usetz = TRUE)
计算两地时差
st <- Sys.time()
d2 <- format(st, tz = 'Asia/Taipei', usetz = TRUE)
d1 <- format(st, tz = 'Asia/Tokyo', usetz = TRUE)
as.POSIXlt(d1) - as.POSIXlt(d2)