指定した西暦年がうるう年かどうかを調べ，結果を真（True），または偽（False）で返します。

IsLeapYear ( Year )

Year

西暦年を数値，または値を格納した変数名で指定します。

西暦年に0〜69の整数値を指定すると，2,000〜2,069に読み替えられます。

指定した西暦年がうるう年かどうかを調べ，結果をコマンドの実行結果として返します。うるう年である場合は真（True）を，うるう年でない場合は偽（False）を返します。

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