French Republican calendar: Difference between revisions

Content deleted Content added
Edmund (talk | contribs)
Created draft task and added one implementation
 
Edmund (talk | contribs)
m →‎{{header|BBC BASIC}}: Minor tidying-up
Line 21:
 
=={{header|BBC BASIC}}==
Computes leap years using the "continuous" method: a year in the Republican calendar is a leap year if and only if the number of the <i>following</i> year is divisible by 4 but not by 100 unless also by 400. No attempt is made to deal with ill-formed or invalid input dates.
<lang bbcbasic>REM >frrepcal
:
Line 154:
DEF FN_rep_leap(year%)
REM see comment at the beginning of FN_rep_to_day
= (year% > 0 AND (year% + 1) MOD 4 = 0 AND ((year% + 1) MOD 100 <> 0 OR (year% + 1) MOD 400 = 0))
:
DEF FN_gre_leap(year%)