'获取本周一所在日期
Function FirstDayOfWeek() As String
FirstDayOfWeek = DateAdd("d", -(Weekday(Date) - 2), Date)
End Function
'获取本周五所在日期
Function LastDayOfWeek() As String
LastDayOfWeek = DateAdd("d", 6 - Weekday(Date), Date)
End Function
'获取本周一所在日期
Function FirstDayOfWeek() As String
FirstDayOfWeek = DateAdd("d", -(Weekday(Date) - 2), Date)
End Function
'获取本周五所在日期
Function LastDayOfWeek() As String
LastDayOfWeek = DateAdd("d", 6 - Weekday(Date), Date)
End Function