gravar campo com valor truncado 2 casas decimais
ola, estou fazendo uma somatória de parcelas de uma venda e o valor total é 19,7878798 mas quero q o sistema grave no campo apenas com dias casas decimais 19,78 , pois no sistemas ele mostra 19,79 pois estou usando uma mascara com 2 casas decimais,... como faço para mostrar 19,78 obrigado
Alquatisistemas
Curtidas 0
Respostas
Jcmsistemas
29/05/2004
Siga Exemplo
Abre um novo Formulario
Adicione um bitbtn e um label
dentro do bitbtn adicione os seguintes codigos
procedure TForm1.BitBtn1Click(Sender: TObject);
var
nvalor, c: currency;
begin
nvalor:= 19.7878978;
c:= (trunc(nvalor * 100))/100;
label1.Caption:= currtostr(c);
end;
Abre um novo Formulario
Adicione um bitbtn e um label
dentro do bitbtn adicione os seguintes codigos
procedure TForm1.BitBtn1Click(Sender: TObject);
var
nvalor, c: currency;
begin
nvalor:= 19.7878978;
c:= (trunc(nvalor * 100))/100;
label1.Caption:= currtostr(c);
end;
GOSTEI 0