Zeitliche Differenz berechnen

[athomas]

hab's!

Delphi-Quellcode:

function DaysBetween(date1, date2: TDateTime): string;
var days, hours, minutes, secs: integer;
  difference: real;
begin
  difference:=date2-date1;
  days:=round(difference-Frac(difference));
  difference:=Frac(difference)*24;
  hours:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  minutes:=round(difference-Frac(difference));
  difference:=Frac(difference)*60;
  secs:=round(difference-Frac(difference));
  result:=Format('%2d Tage, (%2dh:%2dmin:%2dsec)',[days,hours,minutes,secs]);
end;