Question

In VBScript, how can I get the Monday of the current week, assuming a week is Mon-Sun and not Sun-Sat?

The following code returns the Monday when a week is Sun-Sat, so it’s close but not quite right:

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

How can I do this without changing any LCID settings?

Answer 1

Weekday takes a second argument to specify the first day of the week.

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

So DateAdd("d", 1 - WeekDay(d, 2), d)

I didn’t test this to make sure my logic is correct. But the technique should work for you.