Fórum arredondar para menos #299998
19/10/2005
0
alguem conhece alguma funcao para fazer arredondamento para menos. Exemplo: Valor:= 62,905 ficar em Valor:= 62,90
Bruno Cassucci
Curtir tópico
+ 0
Responder
Posts
19/10/2005
Bruno Belchior
Declarar a unit [b:8a56b4964a]Math...[/b:8a56b4964a]
RoundTo(62.905, -2);
Responder
Gostei + 0
08/11/2005
Araujojunior
[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.
Responder
Gostei + 0
08/11/2005
Araujojunior
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:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)