Excel/R中批量转换日期时间至FAIR格式（YYYY-MM-DDTHH-MM-SS）求助

Excel函数方案 #

假设日期列在A列，时间列在B列，在C2单元格输入以下公式，下拉填充即可批量生成FAIR格式的日期时间：

=TEXT(DATE(2000+RIGHT(A2,2),LEFT(A2,LEN(A2)-4),MID(A2,LEN(A2)-3,2)),"YYYY-MM-DD")&"T"&TEXT(IF(B2=2400,0,B2),"00\:00\:00")

公式解析 #

• 日期处理：通过RIGHT提取年份后两位（补全为20xx），LEFT提取月份，MID提取日期，再用DATE函数转换为标准日期格式，最后用TEXT输出YYYY-MM-DD格式字符串。
• 时间处理：用IF将2400替换为0，再通过TEXT格式化为HH:MM:SS（注意冒号需转义为\:），最后拼接日期和时间，用T分隔。

R语言方案 #

基础版（无需额外包） #

# 读入CSV数据
df <- read.csv("your_dataset.csv")

# 处理日期列：拆分并补全格式
df$date_str <- as.character(df$date)
df$year <- paste0("20", substr(df$date_str, nchar(df$date_str)-1, nchar(df$date_str)))
df$month <- substr(df$date_str, 1, nchar(df$date_str)-4)
df$day <- substr(df$date_str, nchar(df$date_str)-3, nchar(df$date_str)-2)
# 补前导零确保两位格式
df$month <- sprintf("%02d", as.integer(df$month))
df$day <- sprintf("%02d", as.integer(df$day))
df$date_part <- paste(df$year, df$month, df$day, sep = "-")

# 处理时间列：转换2400为0000并补全格式
df$time_str <- sprintf("%04d", df$time)
df$time_str <- ifelse(df$time_str == "2400", "0000", df$time_str)
df$hour <- substr(df$time_str, 1, 2)
df$minute <- substr(df$time_str, 3, 4)
df$time_part <- paste(df$hour, df$minute, "00", sep = "-")

# 组合成FAIR格式
df$fair_datetime <- paste(df$date_part, df$time_part, sep = "T")

# 保存处理后的数据集
write.csv(df, "fair_formatted_dataset.csv", row.names = FALSE)

简化版（使用lubridate包） #

借助lubridate包可以大幅简化代码：

library(lubridate)
library(stringr)

# 读入数据
df <- read.csv("your_dataset.csv")

# 解析日期：mdy函数自动识别MDDYY格式（80817 → 2017-08-08）
df$date_clean <- mdy(df$date)

# 处理时间：将2400替换为0000后转为时间格式
df$time_clean <- hms(str_replace(as.character(df$time), "2400", "0000"))

# 组合并格式化为FAIR标准格式
df$fair_datetime <- format(as.POSIXct(df$date_clean) + df$time_clean, "%Y-%m-%dT%H-%M-%S")

# 保存结果
write.csv(df, "fair_formatted_dataset.csv", row.names = FALSE)

内容的提问来源于stack exchange，提问作者Florian L.