arredondamento em uma casa

Delphi

24/10/2008

galera boa tarde,

seguinte estou com dificuldade de fazer um arredondamento em delphi 7 em casa de 1

por exemplo um valor de 26,12 eu gostaria que fosse um total de 27.

o round ele arredonda de forma matematica 26,50 pra cima ele transforma em 27 26,50 pra baixo ele transforma em 26 eu gostaria que sempre fosse 27 caso tenha casa decimal.

agradeço a ajuda.

Magnus


Magnusquandt

Magnusquandt

Curtidas 0

Respostas

Vitor Alcantara

Vitor Alcantara

24/10/2008

Tenta isso:

function RoundMais(Valor: Double): Double;
var
  s:String;
  c,x:double;
begin
  s := FloatToStrF(Valor,ffFixed,10,2);
  c :=  StrToFloat(Copy(s,Length(s)-1,2));
  if c > 0  then
  x := Valor + ((100-c) /100)
  else
  x := Valor;
  Result := x;

end;



GOSTEI 0
Emerson Nascimento

Emerson Nascimento

24/10/2008

ou isso:
function RoundMais(Valor: Double): Double;
begin
  if Frac(Valor) > 0 then
    Result := trunc(Valor+1)
  else
    Result := Valor;
end;



GOSTEI 0
Magnusquandt

Magnusquandt

24/10/2008

vaewl galera usei o segundo código que cabia mais a mim.. brigadao mesmo salvo meu dia rsrsrsrs

até mais


GOSTEI 0
POSTAR