Asp/VB Script Source Codes

Leap Year

<%
Dim lYear
lYear = Year(CDate("2/9/2000"))
leap_yes = "is a leap year"
leap_no = "is not a leap year"
If (lYear mod 4 = 0) AND ((lYear mod 1 0) OR (lYear mod 4 = 0)) then
' It is a Leap Year
Response.Write lYear & " " & leap_yes
else
' it is not a leap year
Response.Write lYear & " " & leap_no
End if
%>

Outputs : 2000 is a leap year

<<<----- Return to Asp/VB Script Source Code Questions Page.

Have a Question ? post your questions here. It will be answered as soon as possible.