JP1/Script(Windows(R)用)
IsLeapYear ( Year )
' 今年がうるう年かどうかを調べる。 Dim nowYear nowYear = Year ( Date() ) If IsLeapYear ( nowYear ) Then MessageBox ( "今年はうるう年です。" ) Else MessageBox ( "今年はうるう年ではありません。" ) End If
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.