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
Jsem ten tvuj algoritmus namatkou pro nekolik dat zkusil a vypada to, ze pondeli=0, utery=1 atd...Ovsem napriklad pro 1/1/1985 tvrdi, ze bylo pondeli - a windowsy rikaji, ze utery.
