R-一个月中给定一周的工作日

import datetime

# 获取当前月份
current_month = datetime.datetime.now().month

# 指定月份
# current_month = 6

# 获取给定月份的第一天
first_day_of_month = datetime.date(datetime.datetime.now().year, current_month, 1)

# 获取给定月份的最后一天
if current_month == 12:
    last_day_of_month = datetime.date(datetime.datetime.now().year + 1, 1, 1) - datetime.timedelta(days=1)
else:
    last_day_of_month = datetime.date(datetime.datetime.now().year, current_month + 1, 1) - datetime.timedelta(days=1)

# 找到给定月份中的一个周
start_of_week = first_day_of_month
end_of_week = first_day_of_month + datetime.timedelta(days=6)

# 统计工作日数量
working_days = 0
current_day = start_of_week
while current_day <= end_of_week:
    # 判断是否为工作日，不包括周末
    if current_day.weekday() < 5:
        working_days += 1
    current_day += datetime.timedelta(days=1)

print("给定月份的一个周的工作日数量为:", working_days)