d, m, r sa zadá, hádam netreba vysvetľovať, čo je čo.1
if m < 3 then
begin
dec(r);
inc(m, 12);
end;
x := trunc(r * 365.25 - r div 100 + r div 400 + m * 30.6 + d) mod 7
Algoritmus je spamäti, ale funkčný. Zdroj je kniha Svet počítačov. 0 je myslím sobota, 1 nedeľa atď, treba otestovať, to si už nepamätám.Edit: Funkčnosž algoritmu je 100 % od dátumu 15. 10. 1582 odkedy sa prešlo na gregoriánsky kalendár z juliánskeho.