OpenEuphoria

Re: Leap Years

• Posted by Craig <cgilbert at CENNET.MC.PEACHNET.EDU> Mar 02, 1997
• 652 views

Here's a lean version of leap year testing.  I don't know how it
compares to others on speed.
----------------
global function leap_year(integer y)
-- return 1 for leap year, 0 for not
   return  ( integer(y/4)*(not integer(y/100)) + integer(y/400) )
end function
----------------

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
J. Craig Gilbert
cgilbert at mc.peachnet.edu
"Positing infinity, the rest is easy."
Roger Zelazny, in
'Creatures of Light and Darkness'
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-