No attachments for this post
Get the previous week's Monday..."Kathleen A. Earley"
Original Author: Newsgroup Posting
Function GetMonDate (CurrentDate)
'checks to see if CurrentDate is a Date datatype
If VarType(CurrentDate) <> 7 Then
GetMonDate = Null
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
Comments on this post
No comments have been added for this post.
You must be logged in to make a comment.