'获取本周一所在日期
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
本文介绍两个VBScript函数,用于快速获取当前周的周一和周五的具体日期。这些函数通过调整当前日期来计算出目标日期,并以字符串形式返回结果。
'获取本周一所在日期
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
456

被折叠的 条评论
为什么被折叠?
