Mit Delphi Alter berechnen

[himitsu]

hier mal der Quellcode des meines Programmes von dort http://www.delphipraxis.net/internal...t.php?t=165272

Delphi-Quellcode:

Procedure TForm1.DateTimePicker1Change(Sender: TObject);
  Var T: TDateTime;

  Begin
    If CheckBox1.Checked Then Begin
      DateTimePicker1.Date := Now;
      DateTimePicker2.Time := Now;
    End;
    If CheckBox2.Checked Then Begin
      DateTimePicker3.Date := Now;
      DateTimePicker4.Time := Now;
    End;
    Timer1.Enabled := CheckBox1.Checked or CheckBox2.Checked;
    T := Trunc(DateTimePicker1.Date) + Frac(DateTimePicker2.Time);
    T := Trunc(DateTimePicker3.Date) + Frac(DateTimePicker4.Time) - T;
    Edit1.Text := IntToStr(Round(T));
    Edit2.Text := IntToStr(Round(T * 24));
    Edit3.Text := IntToStr(Round(T * 24 * 60));
    Edit4.Text := IntToStr(Round(T * 24 * 60 * 60));
    Edit5.Text := Format('%d Tage %d Stunden %d Minuten %d Sekunden', [
      Trunc(T), Trunc(T * 24) mod 24, Trunc(T * 24*60) mod 60,
      Trunc(T * 24*60*60) mod 60]);
  End;

In Edit5 wird die Differenz in Tage-Stunden-Minuten... zerlegt

Dieses mußt du mit deinen Edits erstmal andersrum machen,
also die Zeitangaben der einzelnen Edits erstmal in eine einheitliche Größe umrechnen
und dann einfach summieren.

Ja und danach kannst du diesen Wert dann wieder in die Einheiten zerlegen, welche du letztendlich haben willst.