Даты предыдущих дней

[Avalonix]

Здравствуйте. Необходимо рушить слудующую задачу: Посчитать затраты за неделю. Я планирую сделать так: При помощи функции DayOfWeek определяем какой сегодня день недели и получаем даты предыдущих дней начиная с понедельника. Вопрос вот в чем. Как получить эти предыдущие даты нескольких дней начиная с текущего дня и до понедельника?

[Ntlegend]

есть системный параметр Date в котором хранится текущая дата.. с помощью DayOfWeek определяете смещение от текущей даты до понедельника.. дальшще отнять от текущей даты смещение.. и вот вам понедельник

смещене можна щитать по формуле

((6+DayOfWeek(Date))-1)mod(7))

вот код, в мемо выводит даты от ближайшего понедельника до сьодня

var i:integer;
begin
i:=round((6+DayOfWeek(Date)-1)mod(7));
while i>-1 do
 begin
  Memo1.Lines.Add(DateToStr(Date-i));
  dec(i);
 end;
end;

[Avalonix]

Огромное спасибо! то что надо!!!