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