• Home
 · 
• Miscellaneous
 · 
• Validates the date in mm/dd/yyyy format

Validates the date in mm/dd/yyyy format

Validates the date in mm/dd/yyyy format

Rate Validates the date in mm/dd/yyyy format

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim flag As Integer
    Dim dt As Variant
    Dim isLeapYear As Boolean
    
    ' Date in mm/dd/yyyy format
    dt = Split(mskDate, "/", -1, vbTextCompare)
    If Val(dt(2)) <= 0 Or Val(dt(2)) > Year(Date) Then
        flag = 3 ' Year out of valid range
    Else
        If Val(dt(0)) = 1 Or Val(dt(0)) = 3 Or Val(dt(0)) = 5 Or Val(dt(0)) = 7 Or Val(dt(0)) = 8 Or Val(dt(0)) = 10 Or Val(dt(0)) = 12 Then
        ' 31 day validation
            If Val(dt(1)) <= 0 Or Val(dt(1)) > 31 Then
                flag = 2 ' Date out of valid range
            End If
        ElseIf Val(dt(0)) = 4 Or Val(dt(0)) = 6 Or Val(dt(0)) = 9 Or Val(dt(0)) = 11 Or Val(dt(0)) = 8 Or Val(dt(0)) = 11 Then
        ' 30 day validation
            If Val(dt(1)) <= 0 Or Val(dt(1)) > 30 Then
                flag = 2 ' Date out of valid range
            End If
        ElseIf Val(dt(0)) = 2 Then
        ' February Error
            ' Checking for leap year
            If (Val(dt(2)) Mod 4 <> 0) Then
                isLeapYear = False
            ElseIf (Val(dt(2)) Mod 400 = 0) Then
                isLeapYear = True
            ElseIf (Val(dt(2)) Mod 100 = 0) Then
                isLeapYear = False
            End If
            
            If isLeapYear = True Then
                If Val(dt(1)) <= 0 Or Val(dt(1)) > 29 Then
                        flag = 2 ' Date out of valid range
                End If
            Else
                If Val(dt(1)) <= 0 Or Val(dt(1)) > 28 Then
                    flag = 2 ' Date out of valid range
                End If
            End If
        ElseIf Val(dt(0)) <= 0 Or Val(dt(0)) > 12 Then
            flag = 1 ' Month out of valid range
        End If
    End If
    ValidateDate = flag
End Function