尝试计算日期差异，同时排除周末- R-studio

# 安装并加载必要的包
if (!require("lubridate")) install.packages("lubridate")
library(lubridate)

# 定义计算工作日的函数
calculate_workdays <- function(start_date, end_date) {
  # 将输入转换为日期格式
  start_date <- as.Date(start_date)
  end_date <- as.Date(end_date)
  
  # 创建日期序列
  date_seq <- seq(start_date, end_date, by="days")
  
  # 计算周末的数量
  weekends <- sum(wday(date_seq) %in% c(1, 7))  # 1 表示周日，7 表示周六
  
  # 总天数减去周末天数
  total_days <- as.numeric(end_date - start_date) + 1
  workdays <- total_days - weekends
  
  return(workdays)
}

# 示例使用
start_date <- "2023-10-01"
end_date <- "2023-10-31"
workdays <- calculate_workdays(start_date, end_date)
print(paste("工作日天数:", workdays))