IsLeapYear(うるう年かどうかを調べる)
機能
指定した西暦年がうるう年かどうかを調べ,結果を真(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