arrendondamento de valores

Delphi

22/12/2008

Olá pessoal bom dia, eu gostaria de sber como eu arredondo valores monetários no delphi
por exemplo 8,0625 para 8,06

Muito obrigado pessoal


Rsoares

Rsoares

Curtidas 0

Respostas

Jair Bg

Jair Bg

22/12/2008

tente essa função

Function funcdblRound(dblValor, dblDecimal : double) : double;
var intRound : Double;
begin
Result := Round(dblvalor * (exp(ln(10)*dblDecimal))) / (exp(ln(10)*dblDecimal));
end;


GOSTEI 0
Pestana_

Pestana_

22/12/2008

RoundTo(valor,-2);



é isso que você quer?


GOSTEI 0
Pestana_

Pestana_

22/12/2008

tem mais uma coisa que já estava me esquecendo:

adicione a unit [b:bb0ae42579]Math[/b:bb0ae42579] no uses, caso não esteja declarado!


flw.


GOSTEI 0
Devmedia

Devmedia

22/12/2008

Amigo rsoares!
Tudo bom contigo?


Olá pessoal bom dia, eu gostaria de sber como eu arredondo valores monetários no delphi por exemplo 8,0625 para 8,06 Muito obrigado pessoal



Olha até onde sei: 8,0625 não arredonda para 8,06 e sim para 8,05
Agora se estiver falando em formatação de campo, seria assim:


var
     Valor : Currency;
     ValorFormatado : String;

Begin
Valor := 8,0625
 
ValorFormatado := FormatFloat(´R$ #,0.00´,Valor);
end;



Agora arredondamento seria como o amigo pestana disse.
Mas eu somente utilizo o comando sendo assim:



var
     Valor : Currency;
     ValorArredondado : String;

Begin
Valor := 8,0625
 
ValorArredondado := FloatToStr(Round(Valor));
end;


Espero ter ajudado.


GOSTEI 0
POSTAR