3 lines
129 B
Text
3 lines
129 B
Text
global function is_leap_year(integer y)
|
|
return remainder(y,4)=0 and (remainder(y,100)!=0 or remainder(y,400)=0)
|
|
end function
|