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以降