Arredondar Valores Monetários

[Vivendo&Aprendendo]

Olá galera

No meu sistema tem uma tela de vendas, mas antes o usuário pode fornecer um desconto sobre o valor do produto e ai o sistema está salvando o valor com o desconto com 3 casas decimais e é para salvar só com 2 e quando eu coloco para salvar com duas ele não arredonda o valor.

Tipo tenho um valor R$ 35,95 se eu calcular menos 15% da R$ 30,5575 e ai teria q gravar R$ 30,56.

Como posso fazer isso?

falou

[s3c]

você pode utilizar a função RoundTo:

uses Math;
var f:Double;
begin
  f := RoundTo(35.95 * 0.85, -2);
end;

[Vivendo&Aprendendo]

Ae galera deu certo da seguinte forma:

//deixa somente duas casas decimais

function Arredonda(Valor: Real): Real;

var Modo: TFPURoundingMode;

begin

Modo := GetRoundMode;

try

SetRoundMode(rmTruncate);

Result := RoundTo(Valor, -2);

finally

SetRoundMode(Modo);

end;

end;

//arredonda os valores tipo 1,545 vai para 1,55

function Arredonda(Valor: Real): Real;

var Modo: TFPURoundingMode;

begin

Modo := GetRoundMode;

try

SetRoundMode(rmDown);

Result := SimpleRoundTo(Valor, -2);

finally

SetRoundMode(Modo);

end;

end;

Consegui com a ajuda do amigo DEADFISH

Vlw