Arredondamento para o par ou impar mais próximo

Delphi

02/12/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...


Piusoft

Piusoft

Curtidas 0

Respostas

Okama

Okama

02/12/2005

Use Round

Var V: Double; 
begin

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

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



GOSTEI 0
Piusoft

Piusoft

02/12/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...


GOSTEI 0
Edilcimar

Edilcimar

02/12/2005

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


GOSTEI 0
POSTAR