Array
(
)

Arredondamento para o par ou impar mais próximo

Piusoft
   - 02 dez 2005

Como faço para arredondar valores tipo 234,231 para o Par mais proximo ( 234 ) ou impar mais próximo ( 235 ), estou precisando muito disso... se alguem souber uma funcao ou algo parecido... me ajudaria muito...


Okama
   - 02 dez 2005

Use Round

#Código

Var V: Double; 
begin

V := StrtoFloat( ´234,231´ );
ShowMessage( inttoStr( ROUND( v ) ) );

V := StrtoFloat( ´234,531´ );
ShowMessage( inttoStr( ROUND( v ) ) );








Piusoft
   - 02 dez 2005

Como vc me passou o ROUND... eu sempre vou arredondar para baixo ou para cima.... o que não me atende.... o que desejo é indiferente do decimal dado ( 234,123 ) eu posso escolher o Par mais próximo ( 234 ) ou Impar mais próximo ( 235 ).. quero escolher a opcao desejada não simplesmente arredondar...
Alguém pode me ajudar...


Edilcimar
   - 02 dez 2005

roundto(vairavel,0) arredonda sem casa decimal depois use odd para ver se é par ou ímpar, aí vc faz o que quiser