Opera��es com Real Types ...

Question

Tenho o seguinte Problema:

soma : Single;
valtrib : Single;

na opera��o: soma := soma + ValTrib/100;

O Conteudo de Valtrib � 687
e de some �: 6,8899998665 e eu queria que fosse 6,87
o que posso fazer para que obtenha esse valor?
J� mudei o tipo da vari�vel, etc ..

Xisto · Answer

soma:=strtofloat(formatfloat(�#0.00�,soma));...

Marcos Jk · Answer

Ok, Obrigado Xisto Funcionou para o n�mero acima, por�m
quando divido 420 (em outra passagem) por 100, mesmo utilizando esta fun��o na depura��o a vari�vel est� com o valor 4,1999998093.

Desculpe, sou programador novo (iniciando) em delphi, mas quando programava em cobol ( nos anos 90..) definia uma vari�vel com 2 ou tres, quatro... casas decimais e pronto, era so calcular. Vejo que no delplhi e um pouco diferente ... nao entendo porem pque 420 nao resulta em 4,20. Ja pesquisei em varios livros de pascal, delphi mas nao achei nada mais aprofundado sobre operacoes aritmeticas ..

se alguem tiver algum link ou material sobre o assunto e puder dar um toque, desde ja agradeco ..

Tatuweb · Answer

Esperimente usar a fun��o abaixo. N�o se esque�a de declarar a unit Math na se��o uses.

uses Math;

function EspRound (Number: Double; Digits: Byte): Double;
var
  n_swap: Extended;
begin
  n_swap := Power (10, Digits);
  Number := Number * n_swap;
  Number := Round (Number);
  Result := Number/n_swap;
end;

Chame assim

EspRound (4.1999998093, 2)

PS: Use ponto e n�o virgula como separador decimal. Tem que usar 4.19999. Se usar 4,19999 vai dar erro.

Xisto · Answer

Car�ssimo [b:9c982f8ef1]Marcos JK[/b:9c982f8ef1],
testei assim

  Label2.Caption :=
    formatfloat(�#0.00�,StrToFloat(edit1.Text)/100);

sendo edit1.text := 420 por exemplo
funcionou...
uso Delphi 6, mas nao sei se isto faz qqer diferenca.
Espero ter ajudado.

F�rum Opera��es com Real Types ... #236271