Галактика в вопросах и ответах

Доброго времени суток. такой вопросик: в печатную форму табеля учета рабочего времени, попросили вывести, под каждым числом, день недели. может подскажете какую функцию, или алгоритм, как бы это можно было рассчитать и вывести?

Возможно, вам поможет функция Функция Day_Of_Week

Назначение

Вычисление дня недели (с 1 по 7).

Описание

function Day_Of_Week(d: date): byte;

Параметры

d: date — дата.

Возвращаемое значение

Результатом является номер дня недели указанной даты (1 — понедельник, 2 — вторник, ..., 7 — воскресенье).

Пример

Day_Of_Week(Date(13,3,1972)) = 1;

Спасибо, то что надо)