Calculate Monday date based on date typed in

[Guest]

Our work week is Monday to Sunday. Based on the date typed in we want to
return the Monday date of the work week:

Ex. type in 11/12/06 and return the date 11/06/06 -(NOT 11/13/06).

Is this possible?

 

[Rick Brandt]

Our work week is Monday to Sunday. Based on the date typed in we want to
return the Monday date of the work week:

Ex. type in 11/12/06 and return the date 11/06/06 -(NOT 11/13/06).

Is this possible?

DateAdd("d", -WeekDay([DateValue],vbMonday) + 1, [DateValue])

 

[Allen Browne]

Private Sub MyDate_AfterUpdate()
If IsDate(Me.MyDate) Then
Me.MyDate = Me.MyDate - Weekday(Me.MyDate, vbMonday) + 1
End If
End Sub