maquiavel Postado Outubro 29, 2008 Denunciar Share Postado Outubro 29, 2008 (editado) 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 Outubro 29, 2008 por maquiavel Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
maquiavel
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 maquiavelLink para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.