(Resolvido) Transformar horas em numeros

[Alessandra (Jundiai)]

Tenho que fazer a transformacao de horas em numeros.

Eu tenho hora em horas (02:00) e em minutos (120) tem que aparecer em numeros

exemplo

2 horas - 2

2:30 horas - 2,5

2:15 - 2,25

alguém pode me ajudar ???????

[Jhonas]

Tenho que fazer a transformacao de horas em numeros.

Eu tenho hora em horas (02:00) e em minutos (120) tem que aparecer em numeros

exemplo

2 horas - 2

2:30 horas - 2,5

2:15 - 2,25

Faça desta maneira

procedure TForm1.Button1Click(Sender: TObject);
var hora:TTime;
begin
   // coverter hora decimal para hora
   hora:=(strtofloat(Edit1.Text) / 1440);  // digite no edit  2,50
   ShowMessage(TimeToStr(hora));
end;


procedure TForm1.Button2Click(Sender: TObject);
var hora:TTime; hh : real;
begin
   // coverter hora para hora decimal
   hora:=((strtotime(Edit1.Text) * 1440) / 60); // digite no edit  02:30:00
   hh := hora;
   ShowMessage(format('%n',[hh]));
end;

abraço

[Alessandra (Jundiai)]

Muito obrigado, voce me ajudou bastante, deu certinho.