asp-classic - 获取本周的星期一，其中一周是星期一 - 星期日（VBScript）

Question

在 VBScript 中，假设一周是周一至周日而不是周日至周六，我如何获得本周的周一？

以下代码在一周是星期日-星期六时返回星期一，所以它很接近但不太正确：

Private Function getMonday(d)
    getMonday = DATEADD("d", 2 - WEEKDAY(d), d)
End Function

如何在不更改任何 LCID 设置的情况下做到这一点？

Answer 1

Weekday 采用第二个参数来指定一周​​的第一天。

http://msdn.microsoft.com/en-us/library/t51x9wtx(v=vs.84).aspx

所以DateAdd("d", 1 - WeekDay(d, 2), d)

我没有对此进行测试以确保我的逻辑是正确的。但这项技术应该适合你。