Long year: Difference between revisions

m
→‎{{header|XPL0}}: Removed unnecessary parentheses.
m (→‎{{header|XPL0}}: Removed unnecessary parentheses.)
Line 2,629:
\Weekday of Y-12-31, 0 Sunday
integer Y;
return Rem((Y + (Y / 4) - (Y / 100) + (Y / 400)) / 7);
 
function integer IsLongYear(Y);
integer Y;
return (4 = Weekday(Y) ! 3 = Weekday(Y - 1));
 
begin
Anonymous user