Arredondamento para o par ou impar mais próximo

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

Respostas

02/12/2005

Okama

Use Round

Var V: Double; 
begin

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

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








Responder Citar

02/12/2005

Piusoft

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...


Responder Citar

02/12/2005

Edilcimar

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


Responder Citar