Fórum Juros Compostos #219133

function CalcularPrestacoes(ValorEmprestimo:Currency;Entrada:Boolean;NumParcelas:Integer;
TXJur:Real):Currency;
 Var
   Acrescentar:Real;
   Fator:Real;
   i:Integer;
Begin
try
  if Entrada Then
     Acrescentar:=1
  else
    Acrescentar:=0;
Fator:=0;
i:=1;
  While i<= NumParcelas Do
    begin
      Fator:=Fator+Power(TxJur,-i);
      i:=i+1;
    end;
Fator:=Fator+Acrescentar;
Result:=ValorEmprestimo/Fator;
except
 on E:EZeroDivide do
   begin
     Beep;
     Showmessage(´ERROR : Taza De Juros Muito Elevada´    
   end;
 end;
end;

1 Caso)
Chamar Função Com Entrada:
CalcularPrestacoes(135.00,true,3,1.08) / ObSERVE O VALOR 3
O Contratente Irá Pagar [color=red]Quatro[/color] Prestações Iguais

2 Caso) 
Chamar a Função Sem Entrada
CalcularPrestacoes(135.00,False,3,1.08) //ObSERVE O VALOR 3
O Contratante Irá Pagar [color=red]Tres[/color] Prestações Iguais

function PrestacaoFixa(Capital, Juros: Currency;
  Periodos: Integer): Currency;
begin
  Result := Capital / ((1 - Power( 1 + (Juros/100),-1 * Periodos))/(Juros/100));
end;