Function IsLeapYear(Year)

If Year Mod 400 = 0 Then

IsLeapYear = True

ElseIf Year Mod 100 = 0 Then

IsLeapYear = False

ElseIf Year Mod 4 = 0 Then

IsLeapYear = True

Else

IsLeapYear = False

End If

End Function

=-=-=

Steve

-=-=-

Quote:

> Ok, sometime ago i learned this but have forgotten and cannot find it one

> the web anywhere... so like this year (2000) is not suppose to be a leap

> year but it is??!!!! what's the rule i know if Year Mod 4 = 0 then it is a

> leap year except every 100 or 400 years or something like that...