如何根据第几周来确定该周的起止日期和终止日期？？

[yiyaozjk]

我的思路是根据今天星期几，如果不是星期天，就倒退减1天，为何此代码不行。 跟踪发现JJ竟然会等于8真是不解。。
mindate = Date
If Weekday(Date) <> 7 Then
For jj = 1 To 7
'DateDiff("d", mnd, maxd)
If Weekday(Date - jj) = Weekday(Date) And Weekday(Date - jj) = 7 Then
mindate = Date - jj
j = 8
End If
Next
End If

错在何处？？？

比如今天是10月20日

希望能列出：10-16 10-17 10-18 10-19 10-20 10-21 10-22 这七天来？

[帝企鹅已被占用]

这个用法很怪
Date - jj

[chinaboyzyq]

Weekday默认1才是星期天。