[[Lepe]]

Mejor simplificamos ¿no?

Código Delphi [-]
function convertirHoras(horas:Extended):String;
var h:Integer;
begin
  h:= trunc(horas);
  result:= inttostr(h)+ ':' + FormatFloat('00',frac(horas)*100);
end;

Empezado por Ayuda delphi

Trunc returns an Int64 value that is the value of X rounded toward zero.

Un saludo