計算閏年主要是為了判斷2月份的天數，一般閏年2月份是29天，平年2月份是28天。計算閏年的演算法非常簡單，即：能被400整除，或是能被4整除而不能被100整除。
演算法如下：
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 和 oYear mod 100<>0) or oYear mod 400=0) then
isLeapYear=true
else
isLeapYear=false
end if
end function