Informação sobre problemas com o trunc

Delphi

18/09/2003

O problema ocorrido abaixo foi testado no delphi3.02 e no delphi5. Favor testarem em outras versões.

Em uma de minhas aplicações faço o seguinte:

begin
  showMessage(format(´¬.7d´,[Trunc(9.90 * 100)]));
end;


O resultado deveria ser ´0000990´ mas retorna ´0000989´

Então resolvi da seguinte maneira:

begin
    showMessage(format(´¬.7d´,[StrToInt(format(´¬7.0f´,[9.90 * 100]))]));
end;


Esta mensagem é apenas um aviso.

Obs: O valor 9.90 na verdade não é fixo. :idea:


Adilsond

Adilsond

Curtidas 0

Respostas

Lidiane

Lidiane

18/09/2003

AdilsonD,
tente assim:

var valor : variant;
begin
  valor:=9.90*100;
  showMessage(format(´¬.7d´,[(Trunc(valor))]));
end;




Lidiane.


GOSTEI 0
Adilsond

Adilsond

18/09/2003

Lidiane,

Realmente, se calcular o valor antes de passar para o trunc funciona perfeitamente.


GOSTEI 0
POSTAR