从周日到周六获取周日期并获取月份值

Question

我有以下代码来获取月份值。所以我可以得到月份的价值，即使周是在两个月内。

week = 1
year_to_use = 2018
month_at_start_of_week = Month(DateAdd("ww", week - 1, DateSerial(year_to_use, 1, 1)))
month_at_end_of_week = Month(DateAdd("ww", week, DateSerial(year_to_use, 1, 1) - 1))

我以前的代码获取从星期一到星期日的星期日期，但我想考虑星期日期从星期日到星期六开始/结束

我还需要计算 month_at_start_of_week 和 month_at_end_of_week 的天数

Answer 1

如果不使用 DateSerial（实际上是指 2018 年 1 月 1 日，即星期一），而是使用已知的星期日日期，那么您的代码将按预期工作，如下所示：

Sub foo()
    week = 5
    year_to_use = 2018
    month_at_start_of_week = Month(DateAdd("ww", week - 1, "30/12/2017"))
    month_at_end_of_week = Month(DateAdd("ww", week, "30/12/2017"))
End Sub