医疗场景下，如何以年和月格式格式化日期差值？

针对医疗领域需要的「年;月」格式年龄计算（忽略不足1个月的天数），可以用以下两种方式实现自定义函数，比你提供的代码更简洁易维护：

方案1：使用lubridate包（推荐，代码更简洁） #

lubridate是R中处理日期时间的常用包，能简化日期差的计算逻辑：

# 先安装并加载lubridate包（首次使用需安装）
# install.packages("lubridate")
library(lubridate)

calculate_age_ym <- function(birth_date, ref_date = Sys.Date()) {
  # 转换输入为Date类型，避免格式错误
  birth_date <- as.Date(birth_date)
  ref_date <- as.Date(ref_date)
  
  # 计算初始年、月差
  year_diff <- year(ref_date) - year(birth_date)
  month_diff <- month(ref_date) - month(birth_date)
  
  # 若参考日期的日早于出生日期的日，调整年、月差（忽略天数）
  if (day(ref_date) < day(birth_date)) {
    year_diff <- year_diff - 1
    month_diff <- month_diff + 12
  }
  
  # 拼接成「年;月」格式
  paste(year_diff, month_diff, sep = ";")
}

测试示例 #

# 对应你提供的测试场景：出生日期2007-06-07，参考日期2024-04-19
calculate_age_ym("2007-06-07", "2024-04-19")
# 输出：[1] "16;10"

# 使用当前日期计算
calculate_age_ym("2007-06-07")

方案2：基础R实现（无需额外包） #

如果不想依赖第三方包，用基础R的POSIXlt类型也能实现：

calculate_age_ym_base <- function(birth_date, ref_date = Sys.Date()) {
  birth_date <- as.Date(birth_date)
  ref_date <- as.Date(ref_date)
  
  # 提取年、月、日信息（POSIXlt的mon是0-11，所以加1转为1-12）
  birth_info <- as.POSIXlt(birth_date)
  birth_y <- birth_info$year + 1900
  birth_m <- birth_info$mon + 1
  birth_d <- birth_info$mday
  
  ref_info <- as.POSIXlt(ref_date)
  ref_y <- ref_info$year + 1900
  ref_m <- ref_info$mon + 1
  ref_d <- ref_info$mday
  
  # 计算并调整年、月差
  year_diff <- ref_y - birth_y
  month_diff <- ref_m - birth_m
  
  if (ref_d < birth_d) {
    year_diff <- year_diff - 1
    month_diff <- month_diff + 12
  }
  
  paste(year_diff, month_diff, sep = ";")
}

测试示例 #

calculate_age_ym_base("2007-06-07", "2024-04-19")
# 输出：[1] "16;10"

函数优势 #

• 支持自定义参考日期（不仅限于当前日期）
• 逻辑清晰，易读易修改
• 自动处理日期格式转换，避免输入格式错误
• 正确处理「参考日期日数小于出生日期日数」的边界情况（比如4月19日计算6月7日的年龄时，自动扣减1年并调整月份）

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