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

Question

我的思路是根据今天星期几，如果不是星期天，就倒退减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 这七天来？

Answer 1

这个用法很怪
Date - jj

Answer 2

Weekday默认1才是星期天。