RosettaCodeData/Task/Leap-year/BASIC/leap-year-2.basic
2016-12-05 22:15:40 +01:00

1 line
71 B
Text

10 DEF FNLY(Y)=(Y/4=INT(Y/4))*((Y/100<>INT(Y/100))+(Y/400=INT(Y/400)))