得到本周一周一周一至周日（VBScript）

Question

在VBScript中，我怎么能得到本周的星期一，假设一周是周一至周日而不是周日周六？

下面的代码返回星期一，当周是星期日 - 星期六，所以它关闭但不太正确：

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

如何在不更改任何LCID设置的情况下执行此操作？

Answer 1

工作日需要第二个参数来指定一周​​的第一天。

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

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

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