*RESOLVED* Given a date return the date of Monday the same week

I'm stumped. The title says it all.

I need the date of Monday for the same week as any date entered. I'm using the system settings for the first day of week.

For some reason I can get it to work unless the day selected is the first day of the week. In that case it always selects the monday of the previous week. For all other dates it works fine.

VB Code:

dMonday = DateAdd("d", -Weekday(dSelectedDate, vbMonday) + 1, dSelectedDate)

It worked for me.... maybe the month and day are messed up.

USe this:

VB Code:

dMonday = DateAdd("d", -(Weekday(dSelectedDate, vbUseSystemDayOfWeek) - dSelectedDate), dSelectedDate)

OK, this gets it.

VB Code:

dStartDate = DateAdd("d", Weekday(vbMonday) - Weekday(mvSchedule.Value), mvSchedule.Value)