Jump to content


Converte Decimal em Horas


  • Please log in to reply
No replies to this topic

#1 nicolau

nicolau
  • Membros
  • 1 posts

Posted 29 October 2008 - 11:19 AM

//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;





0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)