asp下闰年计算方法

　　计算闰年主要是为了判断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 1000) or oYear mod 400=0) then
　　       isLeapYear=true
　　    else
　　       isLeapYear=false
　　    end if
　　 end function