首页 > 代码库 > 【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 If
End Sub

 【代码解析】

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

【结果展示】

输入值为:2018

技术分享

技术分享

 

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