• Home
 · 
• Math/Dates
 · 
• GetMonDate

GetMonDate

Get the previous week's Monday..."Kathleen A. Earley"

Rate GetMonDate

• 1
• 2
• 3
• 4
• 5

(38(38 Vote))

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