[うるう年か判定する]

うるう年かどうかを、計算式で判定しています。

【ソースコード】

[tips0050.vbs]
Option Explicit

Dim lngYear     ' 年

lngYear = Year(Date())
If Day(DateSerial(lngYear, 3, 1) - 1) = 29 Then
    WScript.Echo lngYear & "年はうるう年です。"
Else
    WScript.Echo lngYear & "年はうるう年ではありません。"
End If

[tips0050.vbs]
Option Explicit

Dim lngYear     ' 年

lngYear = Year(Date())
If (((lngYear Mod 400) = 0) Or _
    (((lngYear Mod 4) = 0) And ((lngYear Mod 100) <> 0))) Then
    WScript.Echo lngYear & "年はうるう年です。"
Else
    WScript.Echo lngYear & "年はうるう年ではありません。"
End If

【実行結果】

C:\> cscript //NoLogo tips0050.vbs
2004年はうるう年です。