查找年份是否为闰年 VB - VBA

闰年是指能够被4整除但不能被100整除的年份，或能够被400整除的年份。

在编写程序时，需要判断输入的年份是否为闰年，以便进行相应的计算或处理。下面介绍两种实现方式。

方式一：使用If语句

Sub CheckLeapYear()
    Dim year As Integer
    
    year = InputBox("请输入年份：")
    
    If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then
        MsgBox year & "是闰年。"
    Else
        MsgBox year & "不是闰年。"
    End If
End Sub

此代码使用了If语句来判断输入的年份是否为闰年。其中，Mod操作符表示求余，即判断年份是否能够被4、100、400整除。

方式二：使用Select Case语句

Sub CheckLeapYear()
    Dim year As Integer
    
    year = InputBox("请输入年份：")
    
    Select Case True
        Case year Mod 4 = 0 And year Mod 100 <> 0
            MsgBox year & "是闰年。"
        Case year Mod 400 = 0
            MsgBox year & "是闰年。"
        Case Else
            MsgBox year & "不是闰年。"
    End Select
End Sub

此代码使用了Select Case语句来判断输入的年份是否为闰年。其中，Case后面跟着True表示当表达式为True时执行该分支。由于Case语句是按顺序执行的，因此需要先判断能否被4整除且不能被100整除，再判断是否能够被400整除。如果都不满足，则执行Else分支。

通过以上两种方式，可以方便地判断输入的年份是否为闰年。