Function IsLeapYear(n As Integer) As Integer IsLeapYear=((n Mod 4=0) And (n Mod 100 <>0)) Or (n Mod 400=0) End Function