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));
Jener Silva Martins
Luciano Pimenta®
Editor Técnico da Revista ClubeDelphi
lucianopimenta@clubedelphi.net
