![](https://csdnimg.cn/release/download_crawler_static/86827663/bg6.jpg)
周 = InputBox("请输入" & 年 & "年的第几周:")
'MsgBox DateSerial(年, 1, 1)
'指定年份的第一天是那一周的第几天。当使用vbMonday(2)时,就相当于是星期几
'MsgBox Weekday(DateSerial(年, 1, 1), vbMonday)
' 7 * (周 - 1) 例如,第1周7*0=0,第2周7*1=7
'DateAdd("d", -5+1, #2021/1/1#)
MsgBox DateAdd("d", -Weekday(DateSerial(年, 1, 1), vbMonday) + 1, DateSerial(年, 1, 1)) + 7 * (周 - 1)
<006> 你告诉我年份和周数,我告诉你这周的星期一