在R中读取含日期时间的Excel文件：时间列格式转换问题

我明白你现在遇到的困扰——Excel里显示为00:00到23:59的时间列，读进R后变成了0到0.99的小数，用convertToDateTime处理反而转出了1899-12-30这种奇怪的日期，完全不是你想要的“小时:分钟”格式。

其实原因很简单：Excel里的时间本质是一天的小数占比——0对应00:00，0.5对应12:00，0.99999则对应23:59:59。convertToDateTime是把数值当作完整的Excel日期时间（从1899-12-30开始的天数）来解析，所以单独的小数部分就会被映射到那个古老的日期，这显然不是我们需要的。

下面给你两种实用的解决方案，按需选择：

方法一：用hms包（推荐，格式更规范） #

hms包专门用来处理时间格式，能直接把Excel的时间小数转换成标准的时分秒格式，而且结果是可计算的时间类型，方便后续操作：

# 先安装并加载包（如果还没安装的话）
install.packages("hms")
library(hms)

# 转换你的时间列
myData$Begin.Time <- hmy(myData$Begin.Time)
myData$End.Time <- hmy(myData$End.Time)

转换后，时间列会显示成00:00:00的格式，如果原数据只有小时和分钟，秒数会自动补0，完全符合你的需求。

方法二：用Base R（无需额外安装包） #

如果你不想新增依赖包，用Base R也能搞定，核心思路是把小数转换成一天的秒数，再格式化为“小时:分钟”字符串：

# 转换时间列，格式化为HH:MM格式
myData$Begin.Time <- strftime(as.POSIXlt(myData$Begin.Time * 86400, origin = "1970-01-01"), format = "%H:%M")
myData$End.Time <- strftime(as.POSIXlt(myData$End.Time * 86400, origin = "1970-01-01"), format = "%H:%M")

这里的86400是一天的总秒数（246060），把Excel的时间小数乘以它，就能得到从当天0点开始的秒数，再用strftime提取出小时和分钟部分。

测试验证 #

你可以用示例值测试效果，比如0.5（对应Excel里的12:00）：

test_time <- 0.5
hms::hmy(test_time) # 输出 12:00:00
strftime(as.POSIXlt(test_time * 86400, origin = "1970-01-01"), format = "%H:%M") # 输出 "12:00"

这样处理后，你的时间列就会显示成想要的“小时:分钟”格式啦！

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