Fórum arredondamento em uma casa #365463
24/10/2008
0
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
Curtir tópico
+ 0Posts
24/10/2008
Vitor Alcantara
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
24/10/2008
Emerson Nascimento
function RoundMais(Valor: Double): Double;
begin
if Frac(Valor) > 0 then
Result := trunc(Valor+1)
else
Result := Valor;
end;Gostei + 0
27/10/2008
Magnusquandt
até mais
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)