Converte Decimal em Horas, este funciona!

Delphi

29/10/2008

//Converte Decimal em Horas, este funciona!
function decimalHoras(valorDecimal: real): real;
var
a, b, c, d: real;
begin
a := valorDecimal / 60;
b := Int(a);
c := a - b;
d := c * 60;

Result := StrToFloat(FormatFloat(´0´, a) + ´,´ + FormatFloat(´00´, d));
end;


Maquiavel16

Maquiavel16

Curtidas 0
POSTAR