время между двумя интервалами

[tbeca@mail.ru]

procedure TForm1.Timer4Timer(Sender: TObject);
var suuum,hou, min,min1,sec:integer;
begin
  suuum:= (SecondsBetween(StrTotime(ADOTable1vremiavih.Value),time())) ;
           min1:= suuum div 60;
           sec:= suuum mod 60;
           hou:=min1 div 60;
           min:= min1 mod 60;

  Label6.Caption:=inttostr(hou)+':'+ inttostr(min)+':'+ inttostr(sec);



end;

есть такой код оно отображает оставшейся время.
Есть ли такая функция который отображает оставшейся время между двумя интервалами в формате hh:mm:ss. а то вышеуказанный способ не очень то эфективный.

[Пепел Феникса]

даты можно вычитать как и простые числа.
далее вам поможет FormatDateTime

[DeKot]

вам поможет FormatDateTime

Даже в мсек можно считать интервал (ключ - 'z'). Здесь на форуме уже было - включите поиск.