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

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s