TDateTime

[ibp]

es geht auch einfacher ist nur ein beispiel was man anpassen kann....

Delphi-Quellcode:

function timebetween(anow,athen:tdatetime):string;
var
  h,m,s:integer;
begin
  s:=SecondsBetween(dtp2.DateTime,dtp1.DateTime);
  m:=s div 60;
  s:=s-(m*60);
  h:=m div 60;
  m:=m-(h*60);
  result:=inttostr(h)+':'+inttostr(m)+':'+inttostr(s);
end;