DruckenMister WongFacebook

Differenz zwischen zwei TDateTime-Werten ausgeben
System Win9x, WinNT, Win2000, WinXP, Vista, Win7
Ab Delphi-Version Delphi 1
Letzte Änderung 28.09.2010

Errechnet man die Differenz zwischen zwei TDateTime-Werten, so erhält man eine Gleitkommazahl. Will man diesen Wert als Tages-, Stunden-, Minuten- und Sekunden-Anteil ausgeben, muss man etwas rechnen:


function DateTimeDiff(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:=IntToStr(days)+' Tage, '+IntToStr(hours)+' Stunden, '+IntToStr(minutes)+
  ' Minuten, '+IntToStr(secs)+' Sekunden';
end;
 
Ähnliche Seiten: