r - 在 R 中使用 Actual/365 约定的年份分数

Question

是否有任何函数/包可以计算具有不同天数计算约定的年份分数（两个日期之间的差异），例如Matlab 中的yearfrac()？我需要使用 Actual/365 约定。

Answer 1

rollYourOwn <- function(D, origin=as.Date("1970-01-01")) {
  if (!inherits(D, "Date"))
    D <- as.Date(D, origin=origin)
  as.numeric(D - as.Date(format(D, "%Y-01-01"), origin=origin) + 1) / 365
}

rollYourOwn("2014-01-01")
# [1] 0.00273973

rollYourOwn(Sys.Date())
# [1] 0.742466

rollYourOwn("2014-12-31")
# [1] 1