Ir para conteúdo


Foto

Converter Decimal em Horas


Não há respostas para este tópico

#1 maquiavel

maquiavel
  • Membros
  • 1 posts

Postado 29 October 2008 - 11:35 AM

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;

Editado por maquiavel, 29 October 2008 - 11:36 AM.




Responder



  


1 usuário(s) está(ão) lendo este tópico

0 membros, 1 visitantes, 0 membros anônimos