|
#1
|
|||
|
|||
FloatToTime
Помогите решить проблему:
var: t1,t2,t:TTime; t:=t2-t1; в результате в t остается Real значение (дробное кол-во дней) как его перевести в hh:mm:ss? Заранее спасибо! |
#2
|
||||
|
||||
Както так:
Код:
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; |
#3
|
|||
|
|||
Цитата:
TTime = TDateTime = Double До запятой дни. После запятой время. То есть в твоём коде ошибки нет. |