Get the previous week’s Monday…”Kathleen A. Earley”
Original Author: Newsgroup Posting
Code
Function GetMonDate (CurrentDate)
'checks to see if CurrentDate is a Date datatype
If VarType(CurrentDate) <> 7 Then
GetMonDate = Null
Else
Select Case Weekday(CurrentDate)
Case 1 'Sunday
GetMonDate = CurrentDate - 6
Case 2 'Monday
GetMonDate = CurrentDate
Case 3 To 7 'Tuesday..Saturday
GetMonDate = CurrentDate - Weekday(CurrentDate) + 2
End Select
End If
End Function