告訴你兩種判斷閏年的簡單方法

Option Explicit
    Private Sub Command1_Click()
    Print 2000
    Print IsLeapYearA(2000)
    Print IsLeapYearB(2000)
    Print 1999
    Print IsLeapYearA(1999)
    Print IsLeapYearB(1999)
    Print 1998
    Print IsLeapYearA(1998)
    Print IsLeapYearB(1998)
    Print 1997
    Print IsLeapYearA(1997)
    Print IsLeapYearB(1997)
    Print 1996
    Print IsLeapYearA(1996)
    Print IsLeapYearB(1996)
    End Sub
    Function IsLeapYearA(ByVal yr As Integer) As Boolean
    If ((yr Mod 4) = 0) Then IsLeapYearA = ((yr Mod 100) ＞ 0) Or ((yr Mod 400) = 0)
    End If
    End Function
    Public Function IsLeapYearB(ByVal yr As Integer) As Boolean
    IsLeapYearB = Day(DateSerial(yr, 2, 29)) = 29
    End Function