asp下闰年计算方法
2006-02-22 10:35:11 来源:WEB开发网核心提示:计算闰年主要是为了判断2月份的天数,一般闰年2月份是29天,asp下闰年计算方法,平年2月份是28天,计算闰年的算法非常简单,即:能被400整除,或者能被4整除而不能被100整除
计算闰年主要是为了判断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
[]
赞助商链接