Работа с датой

[EugeneIsmatulin]

Добрый день! Подскажите как период дат разбить на дни недели, т.е. есть два DateTimePicker1 и DateTimePicker2 первым выбираем начало недели а вторым конец недели 08.06.2009 по 14.06.2009 и надо чтобы
08.06.2009 - понедельник
09.06.2009 - вторник
......
14.06.2009 - воскресенье и так выбираем период и он нам выдает дни недели.

[evg_m]

for d:=d1 to d2 do
case dayofweek(d)
.......

остальное в справке

[EugeneIsmatulin]

а поподробнее можно
мне надо чтобы этот период выводился в лейблах
Например период 08.06.2009 по 14.06.2009
08.09.2009 - понедельник
09.06.2009 - вторник
.............................
14.06.2009 - воскресенье

[EugeneIsmatulin]

Помогите разобраться а то очень надо.

[Serge_Bliznykov]

а чем Вам решение от evg_m (пост #2) не подошло?

[EugeneIsmatulin]

Может оно мне и подходит только объясните что для чего (пост #2)
И суть в том что надо из DateTimePicker1 и DateTimePicker2 выбрать начало недели 08.06.2009 и конец недели 14.06.2009 и присвоить
Понедельник:= 08.06.2009
Вторник:= 09.06.2009
и так далее
Воскресенье:= 14.06.2009
помогите очень надо

[S@fer]

procedure TForm1.Button1Click(Sender: TObject);
var d:string;
dni:integer;
nach:TDate;
begin
Memo1.Clear;
nach:=DateTimePicker1.Date;
while DateTimePicker1.Date<=DateTimePicker2.Date do
begin
dni:=DayOfWeek(DateTimePicker1.Date);
case dni of
1:d:='Понедельник';
2:d:='Вторник';
3:d:='Среда';
4:d:='Четверг';
5:d:='Пятница';
6:d:='Суббота';
7:d:='Воскресенье';
end;
Memo1.Lines.Add(DateToStr(DateTimePicker1.Date)+' - '+d);
DateTimePicker1.Date:=DateTimePicker1.Date+1;
end;
DateTimePicker1.Date:=nach;
end;

[EugeneIsmatulin]

спасибо работает но только дни

2:d:='Понедельник';
3:d:='Вторник';
4:d:='Среда';
5:d:='Четверг';
6:d:='Пятница';
7:d:='Суббота';
1:d:='Воскресенье';

а как мне вместо memo вывести их в Label

[Neeter]

а как мне вместо memo вывести их в Label

А что тут сложного?

procedure TForm1.Button1Click(Sender: TObject);
var
 d   : string;
 dni : integer;
 nach: TDate;
begin
 nach := DateTimePicker1.Date;
 Label1.Caption := '';
 while DateTimePicker1.Date <= DateTimePicker2.Date do
 begin
  dni := DayOfWeek(DateTimePicker1.Date);
  case dni of
   1: d := 'Понедельник';
   2: d := 'Вторник';
   3: d := 'Среда';
   4: d := 'Четверг';
   5: d := 'Пятница';
   6: d := 'Суббота';
   7: d := 'Воскресенье';
  end;

  Label1.Caption := Label1.Caption  + #13#10 + DateToStr(DateTimePicker1.Date) + ' - ' + d;
  DateTimePicker1.Date := DateTimePicker1.Date + 1;
 end;
 DateTimePicker1.Date := nach;
end;