Ola!
Diariamente vejo pessoas tentando fazer o calculo de divisão de parcelas de vendas para gerar cobranças ou pagamentos de notas e tendo problemas com
divisão com resultados obtidos por dízimas
abaixo vou incluir um procedimento de como calcular a dizima e achar a diferença da dizima para ser incluído na ultima ou na primeira parcela do seu sistema;
procedure Calcular(Sender: TObject); var Total, NumeroParcelas, PercentualComissaoDentista, ValorDivisao, ValorComissao, ComissaoPeloTotal, Diferenca, ComissaoPelaParcela:Currency; i:Integer; begin Total := StrToCurr(EdtValorTotal.text); NumeroParcelas := StrToCurr(EdtNumeroParcelas.Text); PercentualComissaoDentista := StrToCurr(EdtPercentualComissao.Text); //valor da comissao considerando o valor total ComissaoPeloTotal:= (Total * PercentualComissaoDentista)/100; ValorDivisao:= total / NumeroParcelas; ValorComissao:= (ValorDivisao * PercentualComissaoDentista) / 100; //aqui vamos transformar o valor no formato de moeda nacional com apenas 2 casas ValorComissao:= (ValorComissao * 100); ValorComissao:= Trunc(ValorComissao)/100; ComissaoPelaParcela:= (ValorComissao * NumeroParcelas); Diferenca:= ComissaoPeloTotal - ComissaoPelaParcela; ValorComissao:= ValorComissao + Diferenca; end;
veja aqui um exemplo aplicando essa lógica (Clique aqui para baixar)
qualquer duvidas entre em contato.
abraços a todos os leitores
Deixe um comentário