Leap year: Difference between revisions

Content added Content deleted
Line 622: Line 622:
= (yr% MOD 4 = 0) AND ((yr% MOD 400 = 0) OR (yr% MOD 100 <> 0))</lang>
= (yr% MOD 4 = 0) AND ((yr% MOD 400 = 0) OR (yr% MOD 100 <> 0))</lang>


Much quicker without full evaluation:

<lang bbcbasic>DEFFNleap(yr%)
<lang bbcbasic>DEFFNleap(yr%)
IF yr% MOD 4 THEN =FALSE
IF yr% MOD 4 THEN =FALSE