Listing 2: Sample Script That Uses the IsLeapYear Function

Dim intYear
' BEGIN CALLOUT A
intYear = 2008
' END CALLOUT A

If IsLeapYear(intYear) Then
 MsgBox intYear & " is a leap year."
Else
 If Err <> 0 Then
  MsgBox "Invalid Input... "
  Err.Clear
 Else
  MsgBox intYear & " is not a leap year."
 End If
End If

Function IsLeapYear(intYear)
 IsLeapYear = (((intYear Mod 400) = 0) Or _
  (((intYear Mod 4) = 0) And ((intYear Mod 100) <> 0)))
End Function