datetimepicker.date in schleife verwenden

[alcaeus]

So gehts:

Code:

procedure TForm.Button1Click(Sender: TObject); 
begin 
  while DateTimePicker2.Date < DateTimePicker3.Date do 
    DateTimePicker2.Date := DateTimePicker2.Date+1;
end;

Ein TDateTime-Wert gibt an wie viele Tage seit dem 30.12.1899 vergangen sind. Das heißt, eine Erhöhung dieses INTEGER-Werts um 1 bedeutet eine Erhöhung um 1 Tag. Die Zeit wird dann in Dezimalstellen angegeben (0.5=12h), nur falls es dich interessiert