8.4.16 IsLeapYearうるう年かどうかを調べる

機能
指定された西暦年がうるう年かどうかを調べ,結果を真(True),または偽(False)で返します。
形式

IsLeapYear ( Year )

指定項目
Year
西暦年を数値,または値を格納した変数名で指定します。
西暦年に0~69の範囲の数値を指定すると,2000~2069と読み替えられます。
説明
指定された西暦年がうるう年かどうかを調べ,結果をコマンドの実行結果として返します。うるう年である場合には真(True)を,うるう年でない場合には偽(False)を返します。

' 今年がうるう年かどうかを調べる。
Dim  nowYear
nowYear = Year ( Date() )
If  IsLeapYear ( nowYear ) Then
 MessageBox ( "今年はうるう年です。" )
Else
 MessageBox ( "今年はうるう年ではありません。" )
End If

対象バージョン
JP1/Script 05-20以降