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

Posted 2020-08-24 奔跑的金鱼

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

【代码区域】

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