Como calcular corretamente a divisão de parcelas ou comissao em um sistema.

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