R语言中如何将Excel日期数字转换为含时分秒的yyyy-mm-dd HH:MM:SS格式

嘿，我来帮你解决这个头疼的日期转换问题！你之前用as.Date()转丢了时分秒，是因为这个函数本来就只处理日期部分，自动忽略了小数对应的时间。要保留完整的时间戳，得用专门处理日期时间的工具，我给你两种靠谱的方案：

基础R原生解法 #

首先得搞清楚：Excel里的那个数字（比如44586.727083333302）是从1899-12-30开始算的天数（Windows版Excel有个1900年闰年的bug，所以实际原点不是你以为的1900-01-01）。用as.POSIXct()这个函数就能同时处理日期和时间，代码如下：

# 先试试转换单个序列号验证
as.POSIXct(44586.727083333302, origin = "1899-12-30", tz = "UTC")
# 你会得到："2022-01-25 17:27:00 UTC"，完美匹配你的目标时间

# 转换数据框里的列
df$dates <- as.POSIXct(df$dates, origin = "1899-12-30", tz = "UTC")

这里的tz可以换成你需要的时区，比如"Asia/Shanghai"就是北京时间，根据自己的需求调整就行。

用lubridate包偷懒（推荐！） #

如果你不想记那些origin的细节，用lubridate包的专门函数一步到位，它能自动识别Excel的日期系统，还能轻松保留时间：

先安装加载包：

install.packages("lubridate")
library(lubridate)

然后直接转：

# 单个序列号测试
excel_numeric_to_date(44586.727083333302, include_time = TRUE)
# 同样得到："2022-01-25 17:27:00 UTC"

# 批量转数据框列
df$dates <- excel_numeric_to_date(df$dates, include_time = TRUE)

只要把include_time设为TRUE，时分秒就妥妥保留了，是不是超省心？

为啥你之前的代码不行？ #

给你复盘下问题点：

1. as.Date()本质是只提取日期部分，不管小数对应的时间，所以转完自然丢了时分秒；
2. 你设置的origin不对，Windows版Excel的日期原点实际是1899-12-30（因为它错误地把1900当成了闰年，导致序列号多算了2天），用1900-01-01的话日期也会不准。

按照上面的方法改完，就能得到完整的yyyy-mm-dd HH:MM:SS格式时间戳啦！

内容的提问来源于stack exchange，提问作者lama06