DatumZeit - DatumZeit = Rest In Tagen Stund Minuten Sekunden

[Union]

So könnte es gehen:

Delphi-Quellcode:

uses DateUtils, Math;

{$R *.dfm}
procedure DisplayTimeDiff(ANow, AThen : TDateTime);
var
   TimeValues : array [0..3] of word;
   dtDiff : TDateTime;
begin
   dtDiff := ANow - AThen+1;
   // Jahre
   if dtDiff < 365 then
      TimeValues[0] := 0
   else
      TimeValues[0] := YearOf(dtDiff);
   // Tage
   TimeValues[1] := DayOf(dtDiff);
   // Stunden
   TimeValues[2] := HourOf(dtDiff);
   // Minuten
   TimeValues[3] := MinuteOf(dtDiff);

   ShowMessage(Format('%d Jahre %d Tage %d Stunden %d Minuten', [TimeValues[0], TimeValues[1], TimeValues[2], TimeValues[3]]));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   dtNeu, dtAlt : TDateTime;
begin
   dtNeu := StrToDateTime('05.01.2006 10:00');
   dtAlt := StrToDateTime('01.01.2006 08:00');
   DisplayTimeDiff(dtNeu, dtAlt);
end;