Prosze o pomoc w rozszyfrowaniu tej funkcj. Ma ona podac dzien tygodnia. Nie bardzo wiem skad te działania.
function f1(d,m,r:longint):longint;
begin
f1:=round(365*r+d+31*(m-1)+int((r-1)/4)-int(0.75*(int(((r-1)/100)+1))));
end;
function f2(x,y,z:longint):longint;
begin
f2:=round(365*z+x+31*(y-1)-INT(0.4*y+2.3)+INT(z/4)-INT(0.75*(INT(z/100)+1)));