Task

Determine whether a given year is a leap year in the Gregorian calendar.



See also

 Leap year (wiki)


Public Function Leap_year(year As Integer) As Boolean
    Leap_year = (Month(DateSerial(year, 2, 29)) = 2)
End Function