獲取本週的星期一是週一至週日（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)

我沒有測試是爲了確保我的邏輯是正確的。但該技術應該適合你。