将 YYYYMM 转换为该月的最后一个工作日或工作日答案

【问题标题】：Converting YYYYMM to the last weekday or business day of the month将 YYYYMM 转换为该月的最后一个工作日或工作日
【发布时间】：2021-07-12 20:24:53
【问题描述】：

我有一个 YYYYMM 格式的日期，即

d <- "202003"

我想让它成为一个日期对象，并使用来自zoo 的as.yearmon 和来自https://stat.ethz.ch/pipermail/r-help/2007-September/141796.html 的技巧

lastday <- as.Date(as.yearmon(d, "%Y%m"), frac = 1)

但这给了我本月的最后一天日历。我怎样才能获得该月的最后一个营业天或工作日？

提前致谢

托马斯·飞利浦

【问题讨论】：

标签： r date zoo

【解决方案1】：

如果最后一天是星期六，则减去 1 天，如果是星期日，则减去 2 天。使用 %u 进行格式化将给出周六的 6 和周日的 7，因此从中减去 5，如果为负数则为 0。

lastday - pmax(as.numeric(format(lastday, "%u")) - 5, 0)

【讨论】：