ASP leap year Calculation Method

The Calculation of a leap year is mainly used to determine the number of days in January. Generally, the year of a leap year is 29 days, and the year of the Year of the year is 28 days. Calculate the leap yearAlgorithmIt is very simple, that is, it can be divided by 400, or it can be divided by 4, but not by 100.

The algorithm is as follows:

Function isleapyear (pyear)
Set oreg = new Regexp
Oreg. pattern = "^/d {4} $"
If not oreg. Test (pyear) then
Isleapyear = false
Exit Function
End if
Oyear = clng (pyear)
If (oyear mod 4 = 0 and oyear mod 100 <> 0) or oyear mod 400 = 0) then
Isleapyear = true
Else
Isleapyear = false
End if
End Function