из диапазона двух выбранных дат, отдельно вывести(перечислить) дни, месяцы, годы

[Alex003]

Подскажите пожалуйста.
На форме два компонента datetimepicker, нужно из диапазона двух выбранных дат, отдельно вывести(перечислить) дни, месяцы, годы.

Напр.: от 20.04.09 до 15.10.13; месяцы, 04 05 06 07 08 09 10 11 12 01..12 01.. и так до конца второго компонента(13-го года).

[Tanuska___:)]

если еще не разобрался: подключи модуль dateutils
и далее используйте функции для работы с датой:
YearOf(d)-возвращает год указанной в скобках даты (d:Tdate возвращает инт)
MonthOf()-аналогично только возвращает №месяца указанной в скобках даты
DayOf()-\\-\\ день указанной в скобках даты
DaysInMonth()-количество дней в месяце
и далее можешь использовать цикл+исключит ситуации (когда дата 1 datetimepicker < даты 2-го datetimepicker)
возможно есть еще спец функции для таких задач тогда гугл

[Alex003]

Сообщение от Tanuska___:)

подключи модуль dateutils
и далее используйте функции для работы с датой:

Mодуль подключил.
Что-то одним циклом не получатся выдернуть все месяцы из диапазона дат от picker1 до picker, а двумя получается ерунда.
Или опыта не хватает, или ума.

[Tanuska___:)]

вот не очень красиво конечно. если сильно не вчитываться то результат норм выдает

  d1:=DateTimePicker1.DateTime;//дата начала периода
  d2:=DateTimePicker2.DateTime;//дата окончания
     if YearOf(d1)<YearOf(d2)
     then
         begin

    g:=YearOf(d1);//год
    m:=MonthOf(d1);//месяц
//i-день
     for i:=DayOf(d1) to  DaysInMonth(m)do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;
   Memo2.Lines.Add(IntToStr(m));
     for m:=(MonthOf(d1)+1) to 12 do
     begin

for i:=1 to  DaysInMonth(m)do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;

   Memo2.Lines.Add(IntToStr(m));
   end;
  Memo3.Lines.Add(IntToStr(g));

   for g:=(YearOf(d1)+1) to (YearOf(d2)-1) do
     begin
  for m:=1 to 12 do
     begin

for i:=1 to  DaysInMonth(m)do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;
   Memo2.Lines.Add(IntToStr(m));
   end;
  Memo3.Lines.Add(IntToStr(g));
   end;
      g:=YearOf(d2);
     for m:=1 to (MonthOf(d2)-1) do
     begin
  for i:=1 to  DaysInMonth(m) do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;
   Memo2.Lines.Add(IntToStr(m));
   end;
  Memo3.Lines.Add(IntToStr(g));

   g:=YearOf(d2);
    m:=MonthOf(d2);
   for i:=1 to  DayOf(d2) do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;
   Memo2.Lines.Add(IntToStr(m));
   end
   else
   if YearOf(d1)=YearOf(d2)
   then
   begin
   g:=YearOf(d1);
   for m:=1 to  (MonthOf(d2)-1) do
 begin

   for i:=1 to  DaysInMonth(m) do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;
   Memo2.Lines.Add(IntToStr(m));
   end;
   m:=MonthOf(d2);
   for i:=1 to  DayOf(d2) do
 begin
 Memo1.Lines.Add(IntToStr(i));
 end;
   Memo2.Lines.Add(IntToStr(m));
    Memo3.Lines.Add(IntToStr(g));
   end
   else
   if YearOf(d1)>YearOf(d2)
   then Application.MessageBox('Некорректный период','Ошибка',MB_OK);
end;

Алгоритм так себе . можно доработать красиво.

[Stilet]

Я бы делал так

var d:TDateTime;
begin
 d:=DateTimePicker1.Date;
 Memo1.Lines.Clear;
 while d<DateTimePicker2.DateTime do begin
  Memo1.Lines.Add(FormatDateTime('dd   mm   yyyy',d));
  d:=IncDay(d);
 end;
end;

[Alex003]

Stilet
Большое спасибо, очень помогли.
Tanuska___
Вас тоже благодарю за внимание.

Удачи вам!