<BLOCKQUOTE><font size="1" face="Arial, Verdana">code:</font><HR><pre>
function IsLeapYear log (Y as INTEGER):
return day(date(3,1,Y) - 1) = 29.
end function.
display
IsLeapYear(1996).
[/code]
function IsLeapYear log (Y as INTEGER):
return day(date(3,1,Y) - 1) = 29.
end function.
display
IsLeapYear(1996).
[/code]