timedata <- c("2007-04-14 17:41:00 CST","2007-11-18 12:47:00 CST","2007-04-14 15:41:00 CST")
# 轉成POSIXct格式
timedata <- as.POSIXct(timedata, format="%Y-%m-%d %H:%M:%S")
write.csv(timedata, "test1.csv")
write.xlsx2(timedata, "test2.xlsx")
CnRpbWVkYXRhIDwtIGMoIjIwMDctMDQtMTQgMTc6NDE6MDAgQ1NUIiwiMjAwNy0xMS0xOCAxMjo0NzowMCBDU1QiLCIyMDA3LTA0LTE0IDE1OjQxOjAwIENTVCIpCgojIOi9ieaIkFBPU0lYY3TmoLzlvI8KdGltZWRhdGEgPC0gYXMuUE9TSVhjdCh0aW1lZGF0YSwgZm9ybWF0PSIlWS0lbS0lZCAlSDolTTolUyIpCgp3cml0ZS5jc3YodGltZWRhdGEsICJ0ZXN0MS5jc3YiKQp3cml0ZS54bHN4Mih0aW1lZGF0YSwgInRlc3QyLnhsc3giKQ==