[User_baja1]

Funciona bien y es mas eficiente, gracias.

Empezado por 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;

Un saludo