Precis�o com casas decimais, como conseguir?

Question

Ol�, gostaria de saber como fa�o para meu sistema trabalhar com 2 casas decimais, sempre...pois estou fazendo calculos de imposto, e os numeros vem com um monte de casas decimais, e isso est� interfer...

Sabado · Answer

Prezado:N�o sei como vc estaria calculando seus valores. Pode utilizar formatfloat que funciona....

Massuda · Answer

Internamente, valores Double costumam ter 15 d�gitos significativos enquanto valores Currency usam 4 casas decimais.

Com rela��o aos valores que voc� exibe, use FormatFloat (como o sabado sugeriu) ou FloatToStrF.

Titanius · Answer

�, mais o meu maior problema � justamente nas conta e n�o em exibir... gostaria de haver algum m�todo que sempre trabalhe com 2 casas decimais, pois toda hora que for trabalhar ter que formatar o numero � foda, imagina se esquece de algum? Realmente, n�o tem jeito de for�ar o Delphi a trabalhar com 2 casas decimais ?

[]s

Macario · Answer

Ola Programador.Eu uso dessa forma[code:1:667d1c7a79]C�digo: var fvalor, fvalor1: Extended; begin fvalor1 := 20.15; fvalor := 0; fvalor := fvalor + 0.60; fvalor := fvalor + 19; fvalor := fvalor + 0.01; fvalor := fvalor + 0.54; fvalor := Arredonda(fvalor,4); fvalor1 := Arredonda(fvalor1,4); if fvalor = fvalor1 then showmessage(�� igual�); if fvalor > fvalor1 then showmessage(�fvalor � maior�); if fvalor < fvalor1 then showmessage(�fvalor � menor�);[/code:1:667d1c7a79][code:1:667d1c7a79]function Arredonda(Value: Extended; Decimals: integer): Extended; var Factor, Fraction: Extended; begin Factor := IntPower(10, Decimals); (* A convers�o para string e depois para float evita erros de arredondamentos indesej�veis.*) Value := StrToFloat(FloatToStr(Value * Factor)); Result := Int(Value); Fraction := Frac(Value); if Fraction >= 0.5 then Result := Result + 1 else if Fraction <= -0.5 then Result := Result - 1; Result := Result / Factor; end; [/code:1:667d1c7a79]Espero que ajude. 8)...

Massuda · Answer

Se estiver lidando com valores monet�rios, melhor trabalhar usando Currency ao inv�s de Double (ou similar).

Valores Double n�o tem representa��o exata no computador, de modo que pode ser que voc� obtenha um valor 0,800000000123 ao inv�s de 0,80 mesmo fazendo algum tratamento especial nesse valor.

Valores Currency n�o tem esse problema, pois tem representa��o exata no computador, embora usem 4 casas decimais sempre (logo, o valor 0,00001 n�o pode ser armazenado em um currency).

Quanto a ter que formatar o valor, que eu me lembre, sempre foi assim.

Titanius · Answer

valeu pessoal......