主题：[求助]周次求日期

参考代码

Dim y As Integer = 2016
Dim w As Integer = 18
Dim start As Date = new Date(y, 1, 1)
start = start.AddDays(-start.DayOfWeek)
start = start.AddDays(7*(w-1))
msgbox(start)