Delphi: funções para calculo de juros
Posted on : 23-06-2009 | By : Paulo H Oliveira | In : Delphi
{
Funçao que retorna o valor de cada parcela para financiamento ou pagamento de bens em prestaçoes.
para usar acrescente a unit Math em uses.
exemplo de uso:
nVarQualquer := VlPrestaçao(C,J,N);
ou se for um edit
editQualquer.text := FormatFloat(‘###,###.##’,VlPrestacao(C,J,N));
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.
}
function CalculaJurosPrestacao(C : Real; J : Real; N : Real) : Real;
begin
Result := C*((J/100)/(1-( Power(1/(1+(J/100)),N) )));
end;
{
P=VL. PRESTACAO
N=NUMERO DE PARCELAS
J=TAXA JUROS MENSAL
TAXA DE JUROS PODE SER QUEBRADO.
EX: 2.8
}
function CalculaJurosTotal(P : Real; J : Real; N : Real) : Real;
begin
Result := 1/(1/(P)*((Power((1 + J/100), N)) * J/100)/((Power((1 + J/100), N)) – 1));
end;
0