'获取本周一所在日期
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
VBA 获取本周周一所在日期及周五所在日期
最新推荐文章于 2024-08-13 08:19:25 发布
本文提供了两个实用的Visual Basic函数：FirstDayOfWeek()和LastDayOfWeek()。这些函数可以帮助用户快速确定当前周的开始和结束日期，对于需要按周进行时间管理的应用场景非常有用。
扫一扫
884
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
