判断某年为闰年的函数？ - VB.NET论坛

编程论坛 → .NET专区 → 『 VB.NET论坛』 → 判断某年为闰年的函数？

标题：判断某年为闰年的函数？

只看楼主

崔钰佳

等　级：新手上路
帖　子：4
专家分：0
注　册：2011-12-24
结帖率：0

楼主

已结贴√ 问题点数：3 回复次数：3

判断某年为闰年的函数？

我是个新手，现在想用vbscript程序设计一个函数来判断某年是否为闰年？大家帮帮我吧

搜索更多相关主题的帖子: 程序设计　

2011-12-24 23:50

lhw78535

等　级：新手上路
帖　子：2
专家分：3
注　册：2011-10-12

第 2 楼

得分:3

程序代码：

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