Cálculo de juros. Alguém sabe ???

23/05/2003

1

Bom Dia,
preciso implementar um rotina para cálculos de juros em vendas parceladas, só que estou com dúvidas, pois é a 1ª vez que faço, e não sei como calcular.
Se o cálculo se faz sobre o total de venda, ou sobre cada parcela ??
Se alguém tiver algum rotina ou dica, desde já obrigado

:) :)


Responder

Posts

23/05/2003

Okama

Primeiro você deve conversar com quem encomendou o corpo e ver as taxas de juros adotadas. Em geral o cálculo vai no valor total.

Ex. Valor := 200,00

2 parcelas - Juros 10¬
220,00 = 2x 110,00

3 parcelas - Juros 15¬
230,00 = 3x 76,66

4 parcelas - juros 20¬
240,00 = 4x 60,00


Responder
Obrigado Okama,
mas existe a possibilidade também de se fazer juros compostos. Por exemplo:

Valor Total - R$ 200,00

Juros de 5¬ a.m - prazo de 2 meses

1ª Parcela - R$ 105,00 - 5¬ sobre 100,00
2ª Parclea - R$ 110,25 - 5¬ sobre 105,00

Total R$ 215,25 / 2 meses

Total da parcela R$ 107,62.

Entendeu agora o que eu quis dizer ??


Mais uma vez obrigado.

:)


Responder

23/05/2003

Brazoli

Na unit Math, existem todas as formulas para o calculo de juros, montantes, e etc..
Tem que dar uma olhada.
Vc precisa inserir a unit na uses e dar uma olhada no help. É mais ou menos igual ao q temos no excel..


Responder

23/05/2003

Frampton

Olá amigo,


Eu ja trabalhei com calculo de juros simples e compostos e tenho uma funcao pra te ajudar !!!! :-)

Olha ela ai ...


function composto:real;
var
{ Fórmula para cálculo de jutos compostos }
{ M = C x (1 + i)t }

M : real; //montante final = (captital + juros)
C : real; //capital inicial
i : real; //taxa ¬ por período de tempo
t : integer; //número de períodos de tempo
begin
C := StrToFloat(vlr_inicial1.text);
i := StrToFloat(vlr_juros.text)/100;
t := StrToInt(difdias(strtodate(edit_operacao.text),strtodate(edit_dt1.text)));
m := c*(pot( (1+i), (t/30) ));
result := m;
end;


T+++


Responder

23/05/2003

Frampton

Olá amigo, Eu ja trabalhei com calculo de juros simples e compostos e tenho uma funcao pra te ajudar !!!! :-) Olha ela ai ... function composto:real; var { Fórmula para cálculo de jutos compostos } { M = C x (1 + i)t } M : real; //montante final = (captital + juros) C : real; //capital inicial i : real; //taxa ¬ por período de tempo t : integer; //número de períodos de tempo begin C := StrToFloat(vlr_inicial1.text); i := StrToFloat(vlr_juros.text)/100; t := StrToInt(difdias(strtodate(edit_operacao.text),strtodate(edit_dt1.text))); m := c*(pot( (1+i), (t/30) )); result := m; end; T+++


Complementando ... use estas funções também... :-)

---
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
---
function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
var
Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := ´A data data atual não pode ser menor que a data inicial´;
end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data); //+´ Dias´;
end;
end;


É só isso !!!

:-)


Responder