Nächsten Tag berechnen!

[negaH]

Delphi-Quellcode:

var
  Tag,Monat,Jahe: Word;
  Datum: TDateTime;
begin
  Tag := StrToInt(Edit1.Text);
  Monat := StrToInt(Edit2.Text);
  Jahr := StrToInt(Edit3.Text);

  Datum := EncodeDate(Jahr, Monat, Tag);  // umwandeln in TDateTime
  Datum := Datum +1;                      // +1 Tag drauf addieren
  DecodeDate(Datum, Jahr, Monat, Tag);    // wieder zerlegen in Jahr, Monat, Tag

  Edit1.Text := IntToStr(Tag);
  Edit2.Text := IntToStr(Monat);
  Edit3.Text := IntToStr(Jahr);
end;

Gruß Hagen