Public Function IsLeapYear(Y As Integer)
    IsLeapYear = Month(DateSerial(Y, 2, 29)) = 2
End Function