「VB.NET」IsLeapYearでうるう年かどうかの判定

書式
Public Shared Function IsLeapYear (year As Integer) As Boolean
指定された年が閏年かどうかを示す値を返します。
使用例

Module Module1

    Sub Main()

        Dim ya As Integer = 2020
        Dim yb As Integer = 2021

        'DateTime.IsLeapYearで判断
        Console.WriteLine("{0}がうるう年かどうか: " + DateTime.IsLeapYear(ya).ToString, ya)
        Console.WriteLine("{0}がうるう年かどうか:" + DateTime.IsLeapYear(yb).ToString, yb)

        '2000年から2020年の間の年が閏年かどうかを判断
        For Year As Integer = 2000 To 2021
            If DateTime.IsLeapYear(Year) Then
                Console.WriteLine("{0} がうるう年", Year)
            End If
        Next

        Console.ReadKey()

    End Sub

End Module

実行結果
2020がうるう年かどうか: True
2021がうるう年かどうか:False
2000 がうるう年
2004 がうるう年
2008 がうるう年
2012 がうるう年
2016 がうるう年
2020 がうるう年

VB.net

Posted by arkgame