Delphi: funções para calculo de juros

1

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;

Compartilhe :

  • Stumble upon
  • twitter

Comentários (1)

Boa tarde, cara tenho o seguinte problema:
o meu sistema possui uma tabela financeira onde o usuário cadastra as informações (taxa juros, multa, tipo[composto, simples], cobrança [dia, mês])

o meu problema é de como fazer o sistema calcular os juros por dia ou mês… estou quebrando a cabeça e não estou consseguindo encontrar a lógica pra faze-lo, ex:
vencto: 10/11/2012
data pgto: 21/11/2012
se o tipo de cobrança dos juros se for por mês calcula um mês e somente qnd der 10/12/12 calcula novamente ou se for por dia calcula os 11 dias atrasados.

Tem alguma idéia de como poderia resolver isso???

ps.: essas as atualizações de juros e status atrasado ocorrem no splash, então cada dia que o usuário abre o sistema pode ir verificando como anda seu financeiro.

att

Escreva um comentário

Security Code: