Question

我的日期类似于"2016-01-01"（YYYY-MM-DD），而我正在使用as.numeric(as.POSIXct(...))将其用作整数。

我的问题是，有没有办法在一年，一个月或一天中添加这个日期？我的意思是，如果我在2016年增加一年，它将与2015年增加一年（bissextile stuff）相同。

与在1月1日添加32天相同，与在2月01日添加32天相同（因为可能更改的天数）

我设法有一些工作多年和几个月但我想实施天

how_long_is_simul <- function(lst){
    # Format DATE_START
    greg_date = intDate_to_gregorianDate(DATE_START)
    reg = "^([0-9]{4})\\-([0-9]{2})\\-([0-9]{2})$" # black-magic
    splited_date = str_match(greg_date, reg)

    # Manage months limit
    lst$years = lst$years + floor(lst$months/12)
    lst$months = lst$months%%12

    # Build new date
    my_vector = c(lst$years, lst$months, 0)
    end_date = paste(as.numeric(splited_date[2:4]) + my_vector, collapse = "-")
    return(round((gregorianDate_to_intDate(end_date)-DATE_START)/86400))
}

# AND the vars used by the function
DATE_START <- 1451606400 # 2016-01-01 GMT
lst   = list( # no days, because of bissextile years
    years  = 1,
    months = 0
)

基本上我正在做的是从DATE_START整数转换为格里高利，然后从lst添加月/年，然后重建一个干净的字符串并将其重新转换为整数。

N.B。转换int＆lt; ---＆gt;格里高利用POSIXct

完成

我不确定我是否解释得很好，但无论如何，谢谢你。）

Answer 1

使用来自lubridate包的%m+%添加日，月或年非常简单：

library(lubridate)

x <- as.Date("2016-01-01")
x %m+% days(1)

给出：

[1] "2016-01-02"

要添加月份或年份，您可以使用months或years代替days：

> x %m+% months(1)
[1] "2016-02-01"
> x %m+% years(1)
[1] "2017-01-01"

在posix时间添加一年

1 个答案: