Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
25. Nov 2005
z.B.:
D := Abs(Zeit1 - Zeit2);
S := FormatDateTime('hh:nn:ss', Zeit1 - Zeit2);
If D >= 1 Then S := IntToStr(Trunc(D)) + ' Tage ' + S;
Forum: Object-Pascal / Delphi-Language
Delphi
by himitsu,
25. Nov 2005
Var Zeit1, Zeit2, Differenz: TDateTime
Differenz := Zeit1 - Zeit2;
//oder wenn du nur die reine Differenz, ohe einen Hinweis was früher/später liegt haben möchtest, dann:
Differenz := Abs(Zeit1 - Zeit2);
Für die Ausgabe kannst du alles verwenden, was du willst, z.B. TimeToString, oder dir Delphi noch so bietet. (bei einigen Funktionen kannst du auch direkt das Format angeben ... dazu...