Přestupný rok a Velikonoce

Když už jsme se trošku zabývali časem, ukažme si dva výpočty z opravdu reálného života. Opět je jistě řada z vás bude znát. Alespoň ten první.
Nejprve tedy výpočet přestupného roku, který se nám může někdy v našich aplikacích hodit. Funkce je opravdu jednoduchá, parametrem je požadovaný rok:
function JePrestupny(Rok: integer) : boolean;
begin
Result := ((Rok mod 4 =0) and (Rok mod 100 <>0)) or (Rok mod 400 = 0);
end;