перебор дат в месяце

[BARNEY]

появилась задача в checkListBox отобразить все даты за определённый период.
например с 01.01.2009 по 03.01.2009
то будет
01.01.2009
02.01.2009
03.01.2009

А если диапазон между месяцами..как узнать сколько дней в месяце... можно конечно константами забить и через if перебирать...но может как то проще можно без извращений?
"почесав тыковку" покопавшись в инете чёт не сообразил как...
Если не трудно подскажите.

[SuperVisor]

Подключи модуль DateUtils - там есть прекрасая функция IncMonth.
А еще проще делать так:

var
  Date1, Date2, Swp: TDatetime;
  I: integer;
begin
  Date1:=...;
  Date2:=...;

  if Date2<Date1 then
  begin
    Swp:=Date1;
    Date1:=Date2;
    Date2:=Swp;
  end;

  for i:=trunc(Date1) to trunc(Date2) do
    CheckListBox1.Items.Add(DateToStr(i));
  ...

[Stilet]

как узнать сколько дней в месяце

uses dateutils
...
...:=DaysInAMonth(Год,Номер месяца);

[SERG1980]

uses DateUtils
......
procedure TForm1.Button1Click(Sender: TObject);
var d1,d2:TDate;
    i,nd:integer;
begin
 d1:=StrToDate(edit1.Text);
 d2:=StrToDate(edit2.Text);
while d1<>d2 do
begin
 d1:=incDay(d1);
 CheckListBox1.Items.Add(DateToStr(d1));
end;
end;

[BARNEY]

спс всем большое...
почитал про DateUtils

сделал как посоветовал SERG1980

кому надо нашёл вот такой Сайтик... Начинающим думаю будет полезен

[puporev]

кому надо нашёл вот такой Сайтик..

Долго же искал. Надо было просто поднять глаза вверх и тыкнуть по "Основы Делфи".

[BARNEY]

puporev
это вы так умом блеснули? Под вас подходит пословица:
В чужом глазу соринку заметит, а в своём бревна не заметит.

Спс.. учту свои ошибки.