「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 がうるう年