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

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

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
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
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
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