你是怎么在VBA找到Leapyear的？

Function IsLeapYear(Year As Integer) As Boolean
    If Year Mod 4 = 0 Then
        If Year Mod 100 = 0 Then
            If Year Mod 400 = 0 Then
                IsLeapYear = True
            Else
                IsLeapYear = False
            End If
        Else
            IsLeapYear = True
        End If
    Else
        IsLeapYear = False
    End If
End Function

Sub TestIsLeapYear()
    Dim Year As Integer
    Year = 2020
    If IsLeapYear(Year) Then
        MsgBox Year & "是闰年"
    Else
        MsgBox Year & "不是闰年"
    End If
End Sub