[anwas]

Помогите решить проблему:
var: t1,t2,t:TTime;
t:=t2-t1;
в результате в t остается Real значение (дробное кол-во дней)
как его перевести в hh:mm:ss?
Заранее спасибо!

[Decoding]

Както так:

Код:

 
procedure TForm1.Button1Click(Sender: TObject);
var
  t1, t2, t: TTime;
  h1, h2, m1, m2, s1, s2, ms1, ms2: WORD;
begin
   h1 := 10;
   m1 := 10;
   s1 := 0;
   ms1 := 0;
   t1 := EncodeTime( h1, m1, s1, ms1 );
   h2 := 0;
   m2 := 10;
   s2 := 0;
   ms2 := 0;
   t2 := EncodeTime( h2, m2, s2, ms2 );
   t := t1 - t2;
   ShowMessage( TimeToStr( t ) );
end;

[Elv]

Сообщение от anwas

Помогите решить проблему:
var: t1,t2,t:TTime;
t:=t2-t1;
в результате в t остается Real значение (дробное кол-во дней)
как его перевести в hh:mm:ss?
Заранее спасибо!

Не совсем понятна проблема.
TTime = TDateTime = Double
До запятой дни. После запятой время.
То есть в твоём коде ошибки нет.