【VBA编程】03.判断输入年份是否是闰年

发布时间:2017-2-20 7:18:09 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"【VBA编程】03.判断输入年份是否是闰年 ",主要涉及到【VBA编程】03.判断输入年份是否是闰年 方面的内容,对于【VBA编程】03.判断输入年份是否是闰年 感兴趣的同学可以参考一下。

通过输入月份,判断是否是闰年

【代码区域】

Sub 判断闰年() Dim year As Integer '用于保存输入的年份 year = CInt(InputBox("请输入需要判断的年份:", "判断闰年")) '输入年份 If year Mod 4 = 0 And year Mod 100 <> 0 Then  MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年" Else    If year Mod 100 = 0 And year Mod 400 = 0 Then        MsgBox "" & "是一个闰年", vbOKOnly, "判断闰年"    Else        MsgBox "" & "不是一个闰年", vbOKOnly, "判断闰年"    End If End IfEnd Sub

 【代码解析】

第2行声明了一个用于保存年份的变量,第3行用于输入一个年份,第4~12行是判断逻辑,并输出结果。

【结果展示】

输入值为:2018

上一篇:java 异步机制与同步机制的区别
下一篇:不要用从C文件中的入口去调用CPP文件中的函数

相关文章

相关评论