Arredondamento de Currency

Delphi

25/03/2003

Boa tarde,


Estou precisando ajuda :?: :?: para resolver o seguinte:

Tenho o seguinte cálculo que está me retornando um valor em formato moeda :

PedidosTax.Value:=((Ped_SubTotal.Value-PedidosPed_Desconto.Value)*(PedidosPed_TaxPerc.Value/100));

O cálculo está funcionando e retorna um valor 16,172. No entanto eu preciso deixar[b:c01c8e7418] 16,17[/b:c01c8e7418].

Já tentei várias funções de arredondamento mas nenhuma funcionou.

Alguém tem alguma idéia?


[]´s

dli


Dli

Dli

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

25/03/2003

Boa tarde, Estou precisando ajuda :?: :?: para resolver o seguinte: Tenho o seguinte cálculo que está me retornando um valor em formato moeda : PedidosTax.Value:=((Ped_SubTotal.Value-PedidosPed_Desconto.Value)*(PedidosPed_TaxPerc.Value/100)); O cálculo está funcionando e retorna um valor 16,172. No entanto eu preciso deixar[b:97ff152ed2] 16,17[/b:97ff152ed2]. Já tentei várias funções de arredondamento mas nenhuma funcionou. Alguém tem alguma idéia? []´s dli


Multiplique por 100 e pegue apenas parte inteira e depois divida por 100;

exemplo:

a := 16.172
a := trunc(a*100)/100;


GOSTEI 0
POSTAR