使用lubridate创建动态日期对象时出现chr NA问题求助

问题原因 #

核心问题出在当月最后一天加1个月时，目标月份没有对应日期。比如如果day是某月的31号，而下个月只有30天（如4、6、9、11月）或者28/29天（2月），day + months(1)会生成一个不存在的日期，lubridate会返回NA，自然format后也是NA。而加2个月时，日期会落到有效日期上（比如1月31日加2个月是3月31日，存在），所以能正常返回。

解决办法 #

方案1：用add_with_rollback自动回滚到有效日期 #

lubridate自带的add_with_rollback可以把无效日期自动回滚到目标月份的最后一天，避免NA：

library(lubridate)
day <- as.Date(Sys.time())
this_m <- format(day,"%m")
next_m <- format(add_with_rollback(day, months(1)), "%m")
m_after <- format(add_with_rollback(day, months(2)), "%m")

方案2：基于月份数值直接计算（更稳定） #

如果只需要两位数字的月份字符串，完全可以跳过日期运算，直接对月份数值做加减，再格式化：

library(lubridate)
day <- as.Date(Sys.time())
this_m_num <- month(day)
# 处理月份循环，超过12自动回到1
next_m_num <- (this_m_num %% 12) + 1
m_after_num <- (this_m_num + 1) %% 12 + 1
# 格式化为两位数字
this_m <- sprintf("%02d", this_m_num)
next_m <- sprintf("%02d", next_m_num)
m_after <- sprintf("%02d", m_after_num)

这个方法彻底避开了日期有效性问题，适合仅需月份字符串的场景。

方案3：用ceiling_date取下月第一天再提取月份 #

如果希望以“下月第一天”作为基准，可使用ceiling_date：

library(lubridate)
day <- as.Date(Sys.time())
this_m <- format(day,"%m")
next_m <- format(ceiling_date(day, unit = "month"), "%m")
m_after <- format(ceiling_date(day, unit = "month") + months(1), "%m")

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