R语言read_excel读取Excel时日期列格式转换失败问题

读取Excel文件时EndTime列解析异常，具体情况如下：

• 原Excel文件Report工作表中EndTime列显示为标准日期时间格式，示例值：7/15/2020 9:34:03 AM、8/5/2020 3:19:10 PM、8/10/2020 9:52:58 AM、8/17/2020 8:07:14 PM、9/8/2020 6:11:52 AM
• 读取代码如下：

readSheet<-read_excel("File_Name", "Report")

• 执行head(readSheet)查看时，EndTime列被识别为字符型（<chr>），显示为44027.39795~、44023.34152~、44045.35236~、44053.44812~这类数值
• 已尝试的操作均无效：手动将Excel中该列格式从日期改为常规后重读、通过col_names/col_types参数指定该列为date类型、使用as.Date()/convertToDate()/anydate()等函数转换列格式。

你看到的类似44027.39795~的内容是Excel日期时间序列值：Excel默认以1900年1月1日为计数起点，整数部分代表距起点的天数，小数部分代表当日时间占比（0.5对应中午12点）；值末尾的~是tibble打印时对长数值的截断标记，不属于值本身。
之前转换失效的核心原因有两个：

1. Excel单元格的显示格式和底层存储值完全分离，手动修改列格式为「常规」只会改变显示效果，不会修改底层存储的序列值，因此重读不会有变化
2. 该列在Excel中被标记为文本类型存储，read_excel不会自动解析文本中存储的数字序列，直接调用日期转换函数时，传入的是字符型内容而非数值，无法识别为Excel序列值。

不需要修改原Excel文件，直接在R中对列做两步转换即可：先把字符型的序列值转为数值，再按Excel日期时间规则解析为POSIXct时间格式。

基础R实现（无需安装额外包） #

# 读取文件
readSheet <- read_excel("File_Name", "Report")
# 转换EndTime列
readSheet$EndTime <- as.POSIXct(
  x = as.numeric(readSheet$EndTime) * 86400, # 1天=86400秒，序列值乘秒数得到UNIX时间戳
  origin = "1899-12-30", # 适配Excel 1900日期系统的内置闰年bug，必须用这个起始点
  tz = "Asia/Shanghai" # 替换为你本地对应的时区
)

简便实现（调用工具包） #

如果已安装janitor包，可以直接调用封装好的函数，逻辑和基础版一致：

library(readxl)
library(janitor)
readSheet <- read_excel("File_Name", "Report")
readSheet$EndTime <- excel_numeric_to_date(
  date_num = as.numeric(readSheet$EndTime),
  include_time = TRUE,
  tz = "Asia/Shanghai"
)

注意：不要用仅支持日期（年月日）的转换函数处理该列，因为原数据带时分秒，用as.Date()类函数会丢失时间信息，还可能出现时区偏移导致的日期错误。

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