Function IsLeapYearA(ByVal yr As Integer) As Boolean
If ((yr Mod 4) = 0) Then
IsLeapYearA = ((yr Mod 100) > 0) Or ((yr Mod 400) = 0)
End If
End Function
Public Function IsLeapYearB(ByVal yr As Integer) As Boolean
IsLeapYearB = DAY(DateSerial(yr, 2, 29)) = 29
End Function