【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