如何将混合格式日期列（含文本日期与Excel序列号）转为标准日期

你之前的代码出错有两个核心原因：一是强行把所有值转成数值，导致文本日期变成NA，最终被转成1970-01-01；二是搞错了Excel日期的原点——Excel用的是1899-12-30，不是Unix时间的1970-01-01。

下面是两种可行的解决方法，都能把混合格式统一成你要的mm/dd/yyyy格式：

方法一：Base R 实现 #

# 原始数据
DateAssigned <- c("02/20/2024","45338","45337","02/16/2024")
df <- data.frame(DateAssigned)

# 逐个处理每个日期值
df$DateAssigned <- sapply(df$DateAssigned, function(x) {
  # 判断是否为纯数字的Excel序列号
  if (grepl("^\\d+$", x)) {
    # 转换Excel序列号为日期，再格式化
    format(as.Date(as.numeric(x), origin = "1899-12-30"), "%m/%d/%Y")
  } else {
    # 转换文本日期为日期，再格式化
    format(as.Date(x, format = "%m/%d/%Y"), "%m/%d/%Y")
  }
})

# 查看结果
print(df)

方法二：dplyr 简洁实现 #

如果你习惯用tidyverse工具链，可以用case_when批量处理：

library(dplyr)

# 原始数据
DateAssigned <- c("02/20/2024","45338","45337","02/16/2024")
df <- data.frame(DateAssigned)

df <- df %>%
  mutate(DateAssigned = case_when(
    grepl("^\\d+$", DateAssigned) ~ format(as.Date(as.numeric(DateAssigned), origin = "1899-12-30"), "%m/%d/%Y"),
    TRUE ~ format(as.Date(DateAssigned, format = "%m/%d/%Y"), "%m/%d/%Y")
  ))

# 查看结果
print(df)

运行任意一种方法后，都会得到你期望的输出：

DateAssigned
1    02/20/2024
2    02/16/2024
3    02/15/2024
4    02/16/2024

关键细节说明 #

• grepl("^\\d+$", x)：用来识别纯数字的Excel日期序列号，确保只转换这类值。
• Excel日期原点：必须用1899-12-30，这是Excel默认的日期起始点，用1970的原点会导致日期完全错误。
• format()函数：统一把转换后的日期对象格式化为mm/dd/yyyy的字符串，保证输出格式一致。

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