DatumZeit - DatumZeit = Rest In Tagen Stund Minuten Sekunden

[Union]

Zitat von Angel4585:

"DayOf" liefert doch nur den tag in dem angegebenen Monat zurück oder?

Du hast Recht. Besser ist es so:

Delphi-Quellcode:

procedure DisplayTimeDiff(ANow, AThen : TDateTime);
var
   TimeValues : array [0..4] of word;
   dtDiff : TDateTime;
begin
   TimeValues[0] := trunc(ANow-AThen);
   dtDiff := Frac(ANow-AThen);
   DecodeTime(dtDiff, TimeValues[1], TimeValues[2], TimeValues[3], TimeValues[4]);
   ShowMessage(Format('%d Tage %d Stunden %d Minuten', [TimeValues[0],TimeValues[1],TimeValues[2]));
end;