asp下闰年计算方法

2008-02-23 05:32:46来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

计算闰年主要是为了判断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

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:automation服务器不能创建对象

下一篇:flash和asp分页的一点心得