C�lculo de juros. Algu�m sabe ???

Question

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

:) :)

Okama · Answer

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

Luciano Pimenta� · Answer

Obrigado Okama,mas existe a possibilidade tamb�m de se fazer juros compostos. Por exemplo:Valor Total - R$ 200,00Juros de 5� a.m - prazo de 2 meses1� Parcela - R$ 105,00  - 5� sobre 100,002� Parclea - R$ 110,25 - 5� sobre 105,00Total R$ 215,25 / 2 mesesTotal da parcela R$ 107,62.Entendeu agora o que eu quis dizer ??Mais uma vez obrigado. :)...

Brazoli · Answer

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..

Frampton · Answer

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+++

Frampton · Answer

[quote:a24836370f=�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 iniciali : real; //taxa � por per�odo de tempot : integer; //n�mero de per�odos de tempobegin 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+++[/quote:a24836370f]Complementando ... use estas fun��es tamb�m... :-)---Function Pot( base, expoente: real ):real; // Potencia��obegin{ 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 !!!:-)...