閏年判定をしてくれるIsLeapYear

VB2005に用意されたDateTime データ型には、IsLeapYearという閏年を判定する関数が用意されています。

IsLeapYearに年を与えると、閏年の場合、Trueをそうでない場合、Falseを返します。

' 指定した年が閏年かどうか判定します
If DateTime.IsLeapYear(2004) = True Then
    MessageBox.Show("2004年は、閏年です")
End If