Zadání:

Vytvořte funkci pro určení dne v týdnu v Gregoriánském kalendáři

Gregoriánský kalendář platí od roku 1578, takže data před tímto rokem musí být odmítnuta. Správnost vstupních dat však bude ošetřovat programátor před voláním funkce.

Komplikovaný vzorec k výpočtu dne v týdnu je převzán z literatury. Obvyklý postup výpočtu je určování dní od známého data a známého dne v týdnu přepočtem.

Function UrciDenVTydnu(Den:tDen;Mes:tMesic;Rok:tRok):tDenVTydnu;
var d,e:integer;
begin {UrciDenVTydnu}
  d:=Trunc(1/mes+0.6);
  e:=rok-d;
  d:=Trunc(13*(12*d+mes+1)/5)+Trunc(5*e/4)+Trunc(e/400)+den-Trunc(e/100)-1;
  d:=d-7*Trunc(d/7);
  case d of
    0: UrciDenVTydnu:=Nedele;
    1: UrciDenVTydnu:=Pondeli;
    2: UrciDenVTydnu:=Utery;
    3: UrciDenVTydnu:=Streda;
    4: UrciDenVTydnu:=Ctvrtek;
    5: UrciDenVTydnu:=Patek;
    6: UrciDenVTydnu:=Sobota;
  end;{case}
end; {UrciDenVTydnu}