r - 找出R中一个月中的天数

Question

我在P有个约会

 date = as.Date("2011-02-23", "%Y-%m-%d")

是否可以找出该特定日期的月份中的天数？ (关于leap年)。在PHP中，它看起来类似于此( http://www.php.net/manual/en/function.date.php):

days = format(date, "%t")

但是“％t”在R中的含义不同。是否有解决此问题的方法？

Answer 1

您可以编写简单的函数来做到这一点:

numberOfDays <- function(date) {
    m <- format(date, format="%m")

    while (format(date, format="%m") == m) {
        date <- date + 1
    }

    return(as.integer(format(date - 1, format="%d")))
}

调用为:

> date = as.Date("2011-02-23", "%Y-%m-%d")
> numberOfDays(date)
[1] 28
> date # date is unchanged
[1] "2011-02-23"