VBA 获取本周周一所在日期及周五所在日期

'获取本周一所在日期
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