Fórum arrendondamento de valores #367251
22/12/2008
0
por exemplo 8,0625 para 8,06
Muito obrigado pessoal
Rsoares
Curtir tópico
+ 0Posts
22/12/2008
Jair Bg
Function funcdblRound(dblValor, dblDecimal : double) : double;
var intRound : Double;
begin
Result := Round(dblvalor * (exp(ln(10)*dblDecimal))) / (exp(ln(10)*dblDecimal));
end;
Gostei + 0
24/12/2008
Pestana_
RoundTo(valor,-2);
é isso que você quer?
Gostei + 0
24/12/2008
Pestana_
adicione a unit [b:bb0ae42579]Math[/b:bb0ae42579] no uses, caso não esteja declarado!
flw.
Gostei + 0
24/12/2008
Devmedia
Tudo bom contigo?
Olha até onde sei: 8,0625 não arredonda para 8,06 e sim para 8,05
Agora se estiver falando em formatação de campo, seria assim:
var
Valor : Currency;
ValorFormatado : String;
Begin
Valor := 8,0625
ValorFormatado := FormatFloat(´R$ #,0.00´,Valor);
end;
Agora arredondamento seria como o amigo pestana disse.
Mas eu somente utilizo o comando sendo assim:
var
Valor : Currency;
ValorArredondado : String;
Begin
Valor := 8,0625
ValorArredondado := FloatToStr(Round(Valor));
end;
Espero ter ajudado.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)