asp-classic - 週が月曜日である今週の月曜日を取得します-日曜日（VBScript）

Question

VBScriptで、週が日曜日ではなく月曜日であると仮定して、現在の週の月曜日を取得するにはどうすればよいですか？

次のコードは、週が日曜日から土曜日の月曜日を返すため、近いですが、完全には正しくありません。

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

LCID設定を変更せずにこれを行うにはどうすればよいですか？

Answer 1

Weekdayは、週の最初の日を指定するために2番目の引数を取ります。

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

それでDateAdd("d", 1 - WeekDay(d, 2), d)

ロジックが正しいことを確認するためにこれをテストしませんでした。しかし、テクニックはあなたのために働くはずです。