Subtra��o de Horas

Question

Ol� companheiros de �batalha� eu estou tentando fazer com que uma subtra��o de dois campos do tipo Hora me de como resultado um valor decimal de horas ex:

10:15 - 07:00 = 3,25 hs

Agrade�o a todos que puderem ajudar!

Marco Salles · Answer

Fa�a as adapta��es necess�rias . Utilize a fun��o decodetime

function Decimal(diferencaHora:TTime):Real;
var
 hora,minuto,segundo,MmSegundo:Word;
begin
 decodetime(diferencahora,hora,minuto,segundo,Mmsegundo);
 result:=(hora*3600 + Minuto*60 + Segundo*60)/3600;
end;

para chamar ::: Exemplo:::

procedure TForm1.Button1Click(Sender: TObject);
var
 hora1,hora2:TTime;
begin
hora1:=StrToTime(Edit1.Text);
 Hora2:=StrToTime(Edit2.Text);
showmessage(FloatToStr(Decimal(Hora1-Hora2)));
end;

F�rum Subtra��o de Horas #287540