Conversión

[botones67]

Hola a todos.

Tengo esta variable.

a:=56.75

como puedo convertir esta variable a horas y minutos; para conseguir 57:15 ?

Gracias.

[roman]

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


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.