Foros Club Delphi - Conversión

Puedes primero separar la parte entera y la parte fraccionaria en dos variables enteras H, M:

H := Trunc(A);
M := Trunc(100*Frac(A));

Dado un número de minutos M, M div 60 te dará el número de horas y M mod 60 el número de minutos ya descontando las horas completas en M.

Así, puedes poner

H := H + (M div 60);
M := M mod 60;

Finalmente juntas ambos en una variable string:

S := Format('%d:%d', [H, M]);

Para este caso particular en realidad puedes poner simplemente

Código:

H := Trunc(A);

M := Trunc(100*Frac(A));



if M >= 60 then

begin

  Inc(H);

  Dec(M, 60);

end;



S := Format('%d:%d', [H, M]);

// Saludos

pd: Esto funciona sólo si se dan sólo dos dígitos decimales.