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

【问题标题】：Get the Monday of this week where a week is Mon - Sun (VBScript)获取本周的星期一，其中一周是星期一 - 星期日（VBScript）
【发布时间】：2012-11-04 16:42:01
【问题描述】：

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

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

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

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

【问题讨论】：

你传递给由 'd' 表示的函数的具体内容是什么？
一个日期，例如今天的日期。

标签： asp-classic vbscript

【解决方案1】：

Weekday 接受第二个参数来指定一周的第一天。

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

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

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

【讨论】：