手动计算日期之间的天数

Question

我怀疑 R 有一个内置方法来做到这一点，但我是编程新手，并试图弄清楚如何手动计算日期之间的天数作为练习。这是我的代码：

isLeapYear <- function(year) {
  if (year %% 400 == 0) {
    return (TRUE)
  }
  if (year %% 100 == 0) {
    return (FALSE)
  }
  if (year %% 4 == 0) {
    return (TRUE)
  }
  else{ return (FALSE)}
}

daysInMonth <- function(year,month){
  if (month == 1 | month == 3| month == 5 | month == 7 | month == 8 | month == 10 | month == 12) {
    return (31)
  }
  else if (month == 2){
    if (isLeapYear(year)){
      return (29)
    }
    else {return (28)}
  }
  else {return (30)}
}
nextDay <- function(year, month, day){
  if (day < daysInMonth(year,month)){
    return (list(year, month, day + 1))
  }
  else{
    if (month == 12){
      return (list(year + 1, 1, 1))
    }
    else{return (list(year, month + 1, 1))}
  }
}

dateIsBefore <- function(year1, month1, day1, year2, month2, day2){
  if (year1 < year2){
    return(TRUE)
  }
  if (year1 == year2){
    if (month1 < month2){
      return(TRUE)
    }
    if (month1 == month2){
      return (day1 < day2)
    }
  }
  return (FALSE)
}

daysBetweenDates <- function(year1, month1, day1, year2, month2, day2){
  days <- 0
  while (dateIsBefore(year1, month1, day1, year2, month2, day2)){
    result = nextDay(year1,month1,day1)
    year1 = result[1]
    month1 = result[2]
    day1 = result[3]
    days = days+1
  }
  return (days)
}

我写了一个代码来确定两个日期之间的天数，使用python。我现在正在尝试将其转换为 R 以用于我正在做的另一个作业。当我运行每个单独的功能时，它们似乎工作正常。当我调用daysBetweenDates（2012，1，1，2012，2，28）时，出现以下错误：

第1天出错：二进制运算符的非数字参数

Answer 1

代码不起作用的原因是您在 daysBetweenDates 函数的 while 循环中将结果的三个元素分配给 year1、month1 和 day1 的方式。如果你像这样改变它，它应该可以工作：

daysBetweenDates <- function(year1, month1, day1, year2, month2, day2){
  days <- 0
  while (dateIsBefore(year1, month1, day1, year2, month2, day2)){
    result = nextDay(year1,month1,day1)
    year1 = result[[1]]
    month1 = result[[2]]
    day1 = result[[3]]
    days = days + 1
  }
  return (days)
}

如果您< code >返回

Answer 2

 > as.Date("2012/02/28") - as.Date("2012/01/01")
 # Time difference of 58 days
 > as.Date("2012/01/01") - as.Date("2012/02/28")
 # Time difference of -58 days

Dirk在评论中建议的改进，只是为了使用as.integer（）获得数字作为差异，这里是

 > as.integer(as.Date("2012/02/28") - as.Date("2012/01/01"))
 # [1] 58
 > as.integer(as.Date("2012/01/01") - as.Date("2012/02/28"))
 # [1] -58