vbnet 判斷閏年

     Private Sub CheckLeapYear(ByVal Int_Year As Integer)

        Dim Boo_LeapYear As Boolean

        Boo_LeapYear = Date.IsLeapYear(Int_Year)

        If Boo_LeapYear Then

            MessageBox.Show(Int_Year & "閏年")

        Else

            MessageBox.Show(Int_Year & "不是閏年")

        End If

    End Sub