‘*****************************************************************
‘* 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