Как вычислить день недели по дате?

Нашел алгоритм, но не весь, че то там не то помогите

n:=trunc(365.25*y)+trunc(30,6*m)+d-621050;
Result:=n-trunc(n/7)*7+1;