RosettaCodeData/Task/Leap-year/BASIC/leap-year-2.basic

2 lines
71 B
Text
Raw Permalink Normal View History

2016-12-05 22:15:40 +01:00
10 DEF FNLY(Y)=(Y/4=INT(Y/4))*((Y/100<>INT(Y/100))+(Y/400=INT(Y/400)))