arredondar para menos
alguem conhece alguma funcao para fazer arredondamento para menos. Exemplo: Valor:= 62,905 ficar em Valor:= 62,90
Bruno Cassucci
Curtidas 0
Respostas
Bruno Belchior
19/10/2005
Declarar a unit [b:8a56b4964a]Math...[/b:8a56b4964a]
RoundTo(62.905, -2);
GOSTEI 0
Araujojunior
19/10/2005
[quote:b661af1e74=´Bruno Belchior´]Declarar a unit [b:b661af1e74]Math...[/b:b661af1e74][/quote:b661af1e74]
To fazendo assim:
//VARIAVEIS icms e icms_debitado:double
icms_debitado:=(Modulo_Dados_Bilhete.Bilhetenr_valor.AsFloat/100)*Modulo_Dados.Configuracaonr_icms_bilhete.AsFloat;
icms := RoundTo(icms_debitado,-2);
ShowMessage(´ICMS1: ´+FloatToStr(icms_debitado)+´ ICMS2: ´+FloatToStr(icms));
Esses codigos estao em um laço, acontece de funcionar direitinho em alguns, já em outros.
RoundTo(62.905, -2);
To fazendo assim:
//VARIAVEIS icms e icms_debitado:double
icms_debitado:=(Modulo_Dados_Bilhete.Bilhetenr_valor.AsFloat/100)*Modulo_Dados.Configuracaonr_icms_bilhete.AsFloat;
icms := RoundTo(icms_debitado,-2);
ShowMessage(´ICMS1: ´+FloatToStr(icms_debitado)+´ ICMS2: ´+FloatToStr(icms));
Esses codigos estao em um laço, acontece de funcionar direitinho em alguns, já em outros.
GOSTEI 0
Araujojunior
19/10/2005
Olhem o que eu descobri:
Tem alguma forma de fazer sem ser assim? Afinal, estamos no Brasil :roll:
Citação:
final >= 5 não arredonda para cima?
Não, a regra dos gringos é :
< 5 arredonda pra baixo
Citação:
5 arredonda pra cima
= 5 arredonda para o número par mais próximo.
(2,465 fica 2,46)(2,455 ficaria 2,46)
* Fazer o que ? É a regra dos caras...
Eles dizem que é o processo usado no sistema bancário americano.
Tem alguma forma de fazer sem ser assim? Afinal, estamos no Brasil :roll:
GOSTEI 0