uses math;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
tx : double;
begin
tx := strtofloat(edit1.text);
tx := roundto(tx + 0.1,-2);
edit2.text := floattostr(tx);
end;
Agradeço a todos pelas colaborações.
Bem, pelo que eu sei pela regra de arredondamento, quando a parte inteira é
impar arredonda para cima e quando é par arredonda pra baixo.
[As partes desta mensagem que não continham texto foram removidas]
008 15:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro de arredondamento
Tenho um relatório que faz o seguinte cálculo:
taxa1 e taxa2 : double;
taxa1 := 161,5 * (3 /100); (resultado = 4,845)
taxa2 := strtofloat(formatfloat('#0.00',taxa1));
Na primeira vez que executo o p
fabio giro wrote:
> A explicação que gostaria e que o Rubens Nascimento respondeu é:
> porque 1,5 arrdonda para 2 e 2,5 não arredonda para 3?
http://en.wikipedia.org/wiki/Rounding#Round-to-even_method
--
Joao Morais
A explicação que gostaria e que o Rubens Nascimento respondeu é: porque 1,5
arrdonda para 2 e 2,5 não arredonda para 3?
fabio_giro wrote:
> se edit1 = 1,5 -> edit2 = 2
> se edit1 = 2,5 -> edit2 = 2
> se edit1 = 3,5 -> edit2 = 4
> se edit1 = 4,5 -> edit2 = 4
> ou seja, quando a parte int
fabio_giro wrote:
> se edit1 = 1,5 -> edit2 = 2
> se edit1 = 2,5 -> edit2 = 2
> se edit1 = 3,5 -> edit2 = 4
> se edit1 = 4,5 -> edit2 = 4
> ou seja, quando a parte inteira é impar arredonda. Alguém poderia me
> explicar? Testei no D7.
Você mesmo explicou, e é bem assim que deve funcionar. Que
Já tentou usar a funcao simpleroundto da unit math?
De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em
nome de fabio_giro
Enviada em: sexta-feira, 11 de janeiro de 2008 15:28
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Erro de arredondamento
Tenho um relatório que
Tenho um relatório que faz o seguinte cálculo:
taxa1 e taxa2 : double;
taxa1 := 161,5 * (3 /100); (resultado = 4,845)
taxa2 := strtofloat(formatfloat('#0.00',taxa1));
Na primeira vez que executo o programa o resultado da taxa2 = 4,80 .
Se o usuário rodar o relatório novamente, SEM SAIR DO SIST
8 matches
Mail list logo