將 YYYYMM 轉換為該月的最后一個工作日或工作日
[英]Converting YYYYMM to the last weekday or business day of the month
問題描述
我有一個 YYYYMM 格式的日期，即
d <- "202003"
我想將此日期定為 object，並使用zoo的as.yearmon和https://stat.ethz.ch/pipermail/r-help/2007-September/141796.79235FDC30D825的技巧
lastday <- as.Date(as.yearmon(d, "%Y%m"), frac = 1)
但這給了我這個月的最后一個日歷日。 我怎樣才能得到當月的最后一個工作日或工作日？
提前致謝
托馬斯飛利浦
1 個解決方案
解決方案1
1 已采納 2021-04-18 12:40:47
如果最后一天是星期六，則減去 1 天，如果是星期日，則減去 2 天。 使用 %u 進行格式化將給出周六的 6 和周日的 7，因此從中減去 5，如果為負數，則為 0。
lastday - pmax(as.numeric(format(lastday, "%u")) - 5, 0)
將XTS月份的最后一個工作日索引轉換為月份的最后一天
聲明:本站的技術帖子網頁，遵循CC BY-SA 4.0協議，如果您需要轉載，請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.