Leap Year Validation

‘*****************************************************************
‘* Function Name : bIsLeapYear *
‘* Created By : Thomas A. Cassano *
‘* date : 00/00/97 *
‘* Purpose : *
‘* Arguments : *
‘* Returns : Boolean *
‘* Comments : None *
‘*****************************************************************

Function bIsLeapYear(dDate as date) as Boolean

bIsLeapYear = ((Year(dDate) Mod 4 = 0) _
And (Year(dDate) Mod 100 <> 0)) _
Or (Year(dDate) Mod 400 = 0)

End Function

More by Author

Must Read