GetMonDate

Posted: 2002-06-01
By: ArchiveBot
Viewed: 70

Filed Under:

VB6 Code Cache

No attachments for this post

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


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.