判断某年为闰年的函数？
我是个新手，现在想用vbscript程序设计一个函数 来判断某年是否为闰年？大家帮帮我吧
程序代码：dim dateY
DateY=inputbox("请输入年份","验证是否闰年",2000)
if (datey mod 100)=0 then
if (datey mod 400)=0 then
msgbox dateY & "是闰年。"
else
msgbox dateY & "不是闰年。"
end if
elseif (dateY mod 4)=0 then
msgbox dateY & "是闰年。"
else
msgbox dateY & "不是闰年。"
end if
yzRunnian.rar
(633 Bytes)
