判断某年为闰年的函数？ - 编程论坛

#2

lhw785352011-12-29 21:41

程序代码：

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

只有本站会员才能查看附件，请登录

#3

崔钰佳2012-01-05 12:57

太感谢了太感谢啦

#4

lhw785352012-01-08 20:28

回复 3楼崔钰佳

客气客气了！