Juros Compostos

Delphi

08/03/2004

Amigos...

Tenho as seguintes situações:
- R$ 135,00 em tres pagamentos com juros de 8¬ ªm. - 30/60/90, sendo a 1ª à vista
e
- R$ 135,00 em tres pagamentos com juros de 8¬ ªm. - 30/60/90, sendo a 1ª após 30 dias.

Alguém sabe como faço para fazer os cálculos das prestações utilizando Juros Compostos?
Obs: Estou usando Delphi5.

Desde já agradeço

Mariana


Mariana

Mariana

Curtidas 0

Respostas

Cabelo

Cabelo

08/03/2004

Mariana..

Me tira uma dúvida..

Se no 1º exemplo vc terá pagamentos 30/60/90 e o 1º a vista, vc terá então 4 parcelas e não três..

o que mudaria o cálculo dos juros..

qual é o exemplo correto 3 ou 4 pagamentos..

se for 3 o 1º é a vista e mais 2 vezes?

Sem mais

Junior


GOSTEI 0
Marco Salles

Marco Salles

08/03/2004

Declare a Unit : ´Math´ na Secção Unit..Escreva o Código Generico Abaixo:
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;


Se no 1º exemplo vc terá pagamentos 30/60/90 e o 1º a vista, vc terá então 4 parcelas e não três..


Para Chamar Esta Função Ele Entende Que a Entrada Não Corresponde a Uma Prestação. Porem, Voce Deve Indica-la Com o Valor Da Variável Booloean Cetada Em True...E No Fim Dos Calculos Voce Deve Incorporar
o Valor Esta Entrada No Resultado Final


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



GOSTEI 0
Aroldo Zanela

Aroldo Zanela

08/03/2004

Colega,

Operação (End):

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


Como no exemplo enterior, não esqueça de declarar Math na lista de uses da unit.


GOSTEI 0
Marco Salles

Marco Salles

08/03/2004

Cometi Um Deslize :lol: e Ela Cita: ´Juros Compostos´..A Função Que Lhe Enviei e Aproximadamente o Resultado Dos Juros Cobrados No ´Mercado Financeiro´ Com Algumas Resalvas(Os Programas Do Banco , Calcula Quantidade De Dias Dos Meses, Se Data De Vencimento Das Parcelas é Dia Util,Calcula Iof,Calcula Icms, Taxa De Administração Entre Outros....)...
:P Ainda Bem Que Dos Olhos Atentos De Nossos Amigos , Não Escapa Nada


GOSTEI 0
POSTAR