VBA根据年份与周数获取周起始日期（周一为周首）

嘿，这个需求用VBA的内置日期函数就能轻松搞定，代码简洁还能适配任意年份和周数。直接上核心实现：

Dim nYear As Integer, nWeek As Integer
Dim startDate As Date

nYear = 2018
nWeek = 1

' 一行搞定的核心计算
startDate = DateAdd("ww", nWeek - 1, DateSerial(nYear, 1, 1) - (Weekday(DateSerial(nYear, 1, 1), vbMonday) - 1))

如果觉得一行代码有点紧凑，拆成分步写法可读性更强：

Dim nYear As Integer, nWeek As Integer
Dim startDate As Date, firstDayOfYear As Date, firstMondayOfYear As Date

nYear = 2018
nWeek = 1

' 获取目标年份的第一天
firstDayOfYear = DateSerial(nYear, 1, 1)
' 计算该年份的第一个周一（第1周的第一天）
firstMondayOfYear = firstDayOfYear - (Weekday(firstDayOfYear, vbMonday) - 1)
' 偏移指定周数得到目标周的第一天
startDate = DateAdd("ww", nWeek - 1, firstMondayOfYear)

代码逻辑解释 #

1. DateSerial(nYear, 1, 1)：精准获取目标年份的1月1日。
2. Weekday(..., vbMonday)：以周一为一周的起始（周一=1，周日=7），计算1月1日是该周的第几天。
3. firstDayOfYear - (Weekday(...) - 1)：通过偏移得到该年份的第一个周一——如果1月1日本身就是周一，偏移量为0，结果就是1月1日（完美匹配你的示例结果）；如果1月1日是周二，就往前推1天得到前一个周一，以此类推。
4. DateAdd("ww", nWeek - 1, ...)：从第一个周一开始，加上nWeek-1周的偏移量，直接得到目标周的周一日期。

验证示例 #

针对你给出的2018年第1周：

• 2018年1月1日是周一，Weekday返回1，偏移量为1-1=0，firstMondayOfYear就是2018-01-01。
• 加上1-1=0周的偏移，最终startDate就是01/01/2018，完全符合预期。

这个方法支持任意合法的年份和1-52之间的周数，动态性拉满~

内容的提问来源于stack exchange，提问作者Takichiii