This topic show you how to calculate wether or not a given year is a leapyear.

Microsoft Visual Basic 5.0Microsoft Visual Basic 4.0 32-bitMicrosoft Visual Basic 4.0 16-bitMicrosoft Visual Basic 3

This document has been viewed times since February 22, 1998.
Last modified on January 7, 1999.

Public Function IsLeapYear(ByVal WhatYear As Long) As Boolean

   IsLeapYear = (WhatYear Mod 4 = 0) And ((WhatYear Mod 100 <> 0) Or (WhatYear Mod 400 = 0))

End Function

Please email me suggestions, improvements or anything else you want to be included on my pages.