This topic show you how to calculate wether or not a given year is a leapyear.
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))
Please email me suggestions, improvements or anything else you want to be included on my pages.