Dicas Delphi - Calculando Parcelas

Função que retorna o valor de cada parcela para financiamento ou pagamento de bens em prestações. Para usar acrescente a unit Math em uses.

function VlPrestacao(C, J, N: Real): Real;
begin
Result := C*((J/100)/(1-(Power(1/(1+(J/100)),N) )));
end;

Onde:
C: representa o valor do bem (capital)
J: a taxa de juros mensal no formato '#.##'( ex: 3,00 - tres por cento)
N: é o número de parcelas, em meses.

Retorna o valor de cada parcela.

Exemplo:

editQualquer.text := FormatFloat('R$ ##.##',VlPrestacao(C,J,N));

Take care