Arredondamento de Valor. Onde?

Question

Pessoal,  tenho o seguinte codigo:ValorIncompleto := QtdeParcelas * DuasCasasDecimais(DMEntradaNota.CdsEntradaNota.FieldByName(�VALORNOTA�).AsFloat / QtdeParcelas);Resto := DMEntradaNota.CdsEntradaNot...

Marco Salles · Answer

amigo n�o sei se entend ibem o que voce quer mas veja a diferen�a
entre as duas fun�oes abaixo..

function DuasCasasDecimais(valor : real) : real; begin result := Trunc(Valor * 100) / 100; end;

function DuasCasasDecimaisExtended(valor :extended) : extended;
begin
result := Trunc(Valor * 100) / 100;
end;

showmessage(floattostr(DuasCasasDecimais(9.78)));
showmessage(floattostr(DuasCasasDecimaisExtended(9.78)));

como se trata de arredondamento usar Extended pode fornecer resultados mais precisos...

Webjoel · Answer

Ol�!Voc� n�o precisa usar esta fun��o que voc� criou, o delphi j� tem uma pr�pria.Ex:[code:1:7f547ef251]valorParcela := RoundTo(VALOR,-2); //neste caso vai arredondar para duas casas decimais, mas voc� pode trocar o "-2" por outro n�mero dependndo do arredondamento desejado.[/code:1:7f547ef251]...

Rb2228 · Answer

Salles,alterei a fun��o e utilizei o extended, e alterei as vari�veis ValorIncompleto e Resto tbm. N�o funcionou.Simplificando: Tenho o valor total da nota, o usu�rio insere a qtde de parcelas. Tenho uma rotina que divide o valor total em parcelas e mostro as parcelas, cada qual com o seu respectivo valor num grid.O problema � que no grid, � mostrado apenas duas casas ap�s a v�rgula, e eu calculo a soma das parcelas para comparar com o valor total da nota.Como no grid � mostrado apenas duas casas ap�s a virgula, o que de fato nao esta incorreto pois se trata de dinheiro, imagine os seguintes valores:Valor total da nota: R$ 100,00 Qtde Parcelas: 3Valores no grid:1� Parcela: 33,332� Parcela: 33,333� Parcela: 33,33Total:         99,99   <-------  Ficou faltando R$ 0,01 para chegar no R$ 100,00.Ent�o tenho a rotina postada no topico para me retornar o valor que falta para completar, e somo esse valor na ultima parcela, assim:1� Parcela: 33,332� Parcela: 33,333� Parcela: 33,34Total:       100,00   <-------  Valor correto.PROBLEMA: Com estes valores: Valor Nota: R$ 9,78  Qtde Parcelas: 3n�o da certo pois o delphi insiste em que 9,78 / 3 resulta em 3,25.  e mostra os seguintes valores:1� Parcela: 3,262� Parcela: 3,263� Parcela: 3,29Total:         9,81   <-------  Ficou sobrando R$ 0,03simplifiquei ou confundi mais ainda?obrigado....

Rb2228 · Answer

Webjoel, eu utilizo a fun��o DuasCasasDeciamais para truncar o valor, e n�o arredondar. De qualquer modo, obrigado....

Edilcimar · Answer

Por que voc� n�o pega o valor total, subtrai das parcelas anteriores, o resto ser� automaticamente o valor da �ltima presta��o
Ex: ValorTotal := 100, Parcela1 = 100/3, Parcela2 = 100/3 e Parcela3 = ValorTotal - Parcela1 - Parcela2

Marco Salles · Answer

Amigo , fiz aqui rapidinho com o ClientDataSet em Memoria e n�o obtive nenhum problema

function DuasCasasDecimaisExtended(valor :extended) : extended;
begin
result := Trunc(Valor * 100) / 100;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
t,r,s:extended;
i,n:integer;

begin
t:=strtofloat(edit1.text);
n:=strtoint(edit2.text);
s:=0;
r:=DuasCasasDecimaisExtended(t/n);
for i:=1 to n-1 do
begin
cds.Append;
cds.FieldByName(�valorEmReal�).AsFloat:=r;
cds.FieldByName(�ValorEmCurrency�).AsFloat:=r;
cds.Post;
s:=s+r;
end;
s:=t-s;
cds.Append;
cds.FieldByName(�r�).AsFloat:=s;
cds.FieldByName(�c�).AsFloat:=s;
cds.FieldByName(�e�).AsFloat:=s;
cds.Post;

end;

Se Deu certo comigo provavelmente vai dar certo com voce...

Rb2228 · Answer

Salles, n�o sei se concorda, mas o Edilcimar tem raz�o. uma forma mais simplificada de se fazer.

edicilmar escreveu:

Por que voc� n�o pega o valor total, subtrai das parcelas anteriores, o resto ser� automaticamente o valor da �ltima presta��o Ex: ValorTotal := 100, Parcela1 = 100/3, Parcela2 = 100/3 e Parcela3 = ValorTotal - Parcela1 - Parcela2

Mas foi [b:55dd9ecb13]exatamente[/b:55dd9ecb13] o que lhe apresentei no ultimo post , com o exemplo do clientDataSet

function DuasCasasDecimaisExtended(valor :extended) : extended; 
begin 
result := Trunc(Valor * 100) / 100; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
ValorTotal,parcela,Soma:extended; 
i,n:integer; 

begin 
ValorTotal:=strtofloat(edit1.text); 
n:=strtoint(edit2.text);  //Numerod e parcelas
Soma:=0; 
Parcela:=DuasCasasDecimaisExtended(t/n); 
for i:=1 to n-1 do 
begin
cds.Append; 
cds.FieldByName(�valorEmReal�).AsFloat:=r; 
cds.Post; 
//Como � um comando For .. as PArcelas1 + Parcelas2+parcelas3 etc...
//S�o somadas a Vari�vel Soma
soma:=Soma+parcela; 
end; 
//A Variavel Soma contem o Valor da Ultima Parcela ,
Soma:=ValorTotal - Soma; 
cds.Append; 
cds.FieldByName(�ValorReal�).AsFloat:=Soma;  
cds.Post; 
end;

Marco Salles · Answer

[quote:55dd9ecb13]Salles, n�o sei se concorda, mas o Edilcimar tem raz�o. uma forma mais simplificada de se fazer. [/quote:55dd9ecb13]edicilmar escreveu:[quote:55dd9ecb13]Por que voc� n�o pega o valor total, subtrai das parcelas anteriores, o resto ser� automaticamente o valor da �ltima presta��o Ex: ValorTotal := 100, Parcela1 = 100/3, Parcela2 = 100/3 e Parcela3 = ValorTotal - Parcela1 - Parcela2[/quote:55dd9ecb13]Mas foi [b:55dd9ecb13]exatamente[/b:55dd9ecb13] o que lhe apresentei no ultimo post , com o exemplo do clientDataSet[code:1:55dd9ecb13]function DuasCasasDecimaisExtended(valor :extended) : extended; begin result := Trunc(Valor * 100) / 100; end;[/code:1:55dd9ecb13][code:1:55dd9ecb13]procedure TForm1.Button1Click(Sender: TObject); var ValorTotal,parcela,Soma:extended; i,n:integer; begin ValorTotal:=strtofloat(edit1.text); n:=strtoint(edit2.text);  //Numerod e parcelasSoma:=0; Parcela:=DuasCasasDecimaisExtended(t/n); for i:=1 to n-1 do begincds.Append; cds.FieldByName(�valorEmReal�).AsFloat:=r; cds.Post; //Como � um comando For .. as PArcelas1 + Parcelas2+parcelas3 etc...//S�o somadas a Vari�vel Somasoma:=Soma+parcela; end; //A Variavel Soma contem o Valor da Ultima Parcela ,Soma:=ValorTotal - Soma; cds.Append; cds.FieldByName(�ValorReal�).AsFloat:=Soma;  cds.Post; end;[/code:1:55dd9ecb13]...

Rb2228 · Answer

[code:1:83f93eb68d]If (i = QtdeParcelas) Then                                        {DuasCasasDecimais, � uma fun��o criada que trunca o valor em duas casas ap�s a v�rgula}                                        DMEntradaNota.CdsPagamentoNota.FieldByName(�CDPNVALORPARCELA�).AsFloat     := DMEntradaNota.CdsEntradaNota.FieldByName(�CDENVALORNOTA�).AsFloat - varSomaParcelas                                   {Se nao for a ultima parcela}                                   Else                                   begin                                        DMEntradaNota.CdsPagamentoNota.FieldByName(�CDPNVALORPARCELA�).AsFloat     := DMEntradaNota.CdsEntradaNota.FieldByName(�CDENVALORNOTA�).AsFloat / QtdeParcelas;                                        varSomaParcelas := varSomaParcelas + DMEntradaNota.CdsPagamentoNota.FieldByName(�CDPNVALORPARCELA�).AsFloat;                                   end;[/code:1:83f93eb68d]Perfeito! Deu certo... tanto com valores inteiros como quebrados.Salles, me desculpe, n�o havia entendido muito bem no post anteriormas agora sim, Obrigado!...