如何计算两个日期之间的营业时间(R语言)？

install.packages("lubridate")
library(lubridate)

start_date <- ymd_hms("2022-01-01 09:00:00")
end_date <- ymd_hms("2022-01-02 17:30:00")

total_minutes <- interval(start_date, end_date) %/% minutes(1)

business_hours <- 0
for (i in 0:(total_minutes - 1)) {
  current_time <- start_date + minutes(i)
  if (hour(current_time) >= 9 && hour(current_time) < 17) {
    business_hours <- business_hours + 1
  } else if (hour(current_time) == 17 && minute(current_time) < 30) {
    business_hours <- business_hours + 1
  }
}

print(business_hours)