从星期日到星期六采取星期日期并获得月份值

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

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

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