查找本周一

neo*_*key 5 vbscript asp-classic

我如何获得本周的周一日期.星期一是一周的第一天.因此,如果我本周查阅它将返回2012年1月16日的日期

我正在使用VBScript和ASP

提前谢谢了..

保罗

drf*_*drf 11

实际上,工作日函数返回星期日= 1,星期一= 2等.要获得同一周的星期一,您要减去:

Sunday (1): 6 days
Monday (2): 0 days
Tuesday(3): 1 day
...
Saturday(7): 5 days.
Run Code Online (Sandbox Code Playgroud)

或减去天数=(工作日 - 2 + 7)Mod 7

因此,如果d是日期,则同一周的星期一可写为:

mondayofsameweek = DateAdd("d", -((Weekday(d) + 7 - 2) Mod 7), d)
Run Code Online (Sandbox Code Playgroud)