Check for leap Year

This function will check to see if the date is a leap year.


Private Sub Command1_Click()
IsLeapYear Text1
End Sub

Function IsLeapYear(dDate As Date) As Boolean

IsLeapYear = ((Year(dDate) Mod 4 = 0) _
            And (Year(dDate) Mod 100 <> 0)) _
            Or (Year(dDate) Mod 400 = 0)
Label1 = IsLeapYear
End Function