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

发布时间:2016-12-31 7:25:27编辑: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文件中的函数

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款