如 43周，44周，45周，46周，47周，48周。
怎样计算出这些周的第一天和最后一天？
谢谢！

你第  43 周 ，44 周是怎么计算的？

如果以 日期 除 7 得到的，那么查询 日期 为星期几，然后针对 星期几进行 减及加 就是了。

Private Sub VIEWWEEKDY(cs As Date)
Dim i As Long
i = Weekday(cs, vbMonday)       '本年1-1 为星期几 ,第一天为 周一
'以周一为第一天。如果以周日为第一天的话，下面 计算式中均要减1
Print "本周一为： " & cs - i + 1
Print "本周日为： " & cs + 7 - i
End Sub

如 msgbox DatePart("ww", Date) 可以返回第几周。
现在有没有一个函数输入周数，就可以返回这一周的第一天和最后一天呢？

周是固定概念
msgbox DatePart("ww", Date)返回第几周
MsgBox Weekday(date, vbMonday)返回星期几

你们说的都不是我想要的结果，不过还是要谢谢你们。