by Newsgroup Posting (15 Submissions)
Category: Math/Dates
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Date Added: Wed 3rd February 2021
Rating: 
(38 Votes)
Get the previous week's Monday..."Kathleen A. Earley"
VBcodersFunction 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
