Zitat von
LuCSteR:
Hi,
ahbe folgenden Code:
Delphi-Quellcode:
Var
iDays: integer
dFutureDate: TDateTime;
Begin
//Anz. Tage die add werden sollen
iDays:=strtoint(Form1.Edit1.Text);
//Datumsformat festlegen
ShortDateFormat:= 'dd.mm.yyyy';
DateSeparator:= '.';
//sValueDate liegt im Format dd.mm.yyyy als String vor
dFutureDate:=strtodatetime(sValue1Date);
//solange iDays aufaddieren bis dFutureDay>HeutigerTag
repeat
//IncDay(dFutureDate, iDays);
dFutureDate := IncDay(dFutureDate, iDays);
until dFutureDate>now;
//Ausgabe in ListBox1
Form1.ListBox1.Items.Add(datetimetostr(dFutureDate));
End;
Auch wenn der Starttag iwann 2006 ist, sollte das doch meinen aktuellen Rechner nicht zum Absturz bringen, oder?
Stimmen die Datentypen/-umwandlungen etc? Nutze diese Funktionen zum ersten Mal.
Grüße LuCSteR
Bugfix eingabut
Incday gibt dir den neuen Datumswert zurück, aber du musst natürlich auch ne Variable damit füllen
Gruß
Ansgar