查找属于周一至周日工作周的日期

Question

我目前有一个程序可以在 table 中查找日期并将它们与日期范围进行比较并将它们用于其他用途。一周来我一直用来比较的是Date + 7，但我只想从周一到周日获取本周的日期，并将其用作日期范围。

我认为要走的路是使用当前 WeekNum 并从那里找到星期一和星期日的日期，但老实说我不知道如何从 [=17 开始这样做=].如果有人能指导我完成这项工作，或者我什至以正确的方式思考这件事，我将不胜感激。

Answer 1

您可以使用工作日公式来确定一周的开始和结束。该公式如下所示：

startWeek = Date - (Weekday(Date, vbMonday) - 1)

和

endWeek = Date + (7 - Weekday(Date, vbMonday))

让我知道这是否有效

Answer 2

这是获取本周星期一和下一个星期日的简单方法：

Sub getadate()
    Dim N As Long

    N = Weekday(Date)
    d1 = Date - N + 2
    d2 = d1 + 6
    MsgBox d1 & vbCrLf & d2
End Sub

Find dates that fall within Monday-Sunday work week