s*****n
发帖数: 2174 | 1 应该没有明确的函数可以做月末的循环, 只能通过trick.
比如月初的循环应该很容易
seq(from=as.Date("2008-01-01"), by="1 month", length=24)
月末可以通过 -1 得到
seq(from=as.Date("2008-01-01"), by="1 month", length=24) - 1
再比如当前时间附近的几个月初月末
当前日期
today <- Sys.Date()
本月初
monthstart <- as.Date(format(today, "%Y-%m-01"))
下月初
seq(from=monthstart, by="1 month", length=2)[2]
本月末
seq(from=monthstart, by="1 month", length=2)[2] - 1
上月末
monthstart-1 |
|
