計算閏年主要是為了判斷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 and oYear mod 100<>0) or oYear mod 400=0) then
       isLeapYear=true
    else
       isLeapYear=false
    end if
 end function