Jupyter Notebook中R语言将Excel格式数值转换为DateTime的方法问询

1. 原生R无依赖实现（最稳妥，无需安装任何包） #

Windows版Excel的日期数值默认以1899-12-30为起始纪元，数值整数部分代表距起始日的天数，小数部分代表当日的时间占比，直接按如下逻辑转换即可：

# 自定义转换函数，tz参数可按需调整为你需要的时区
excel_num_to_datetime <- function(x, tz = "Asia/Shanghai") {
  # 乘以86400是将天数转换为秒数，适配POSIXct的计算逻辑
  as.POSIXct(x * 86400, origin = "1899-12-30", tz = tz)
}

# 用你提供的示例数值测试
test_num <- 44410.095193
excel_num_to_datetime(test_num)
# 输出结果："2021-08-02 02:17:04 CST"，和你需要的目标格式完全匹配

提示：如果转换后日期比预期早4年，说明原始Excel是Mac版导出的，将origin参数改为"1904-01-01"即可。

2. 通用lubridate包实现 #

如果已经安装了常用日期处理包lubridate，可以用更简洁的写法：

library(lubridate)
raw.data$DateTime_new <- as_datetime(raw.data$DateTime, origin = "1899-12-30", tz = "Asia/Shanghai")

原第三方包报错排查 #

你之前调用openxlsx、DescTools函数报错的原因是安装后未加载包，调用函数前先执行对应的library(openxlsx)或library(DescTools)即可解决找不到函数的问题，该问题和Jupyter环境无关，属于R的包加载机制要求。

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