Calcular juros diário
18/02/2003
0
alguem sabe como fazer para calcular juros diários, entre data inicial e final, meu indice é 1¬.
Consorte
Curtir tópico
+ 0
Responder
Posts
18/02/2003
Carnette
Segue abaixo uma função para efetuar a potenciação. É útil para compor formulas financeiras, como a de VP (´PV´ valor presente) VF (´FV´ valor futuro)
Exemplo:
Calcular o valor de um produto para o prazo de 30 dias com a taxa de juros de 5¬ mês.
var
i: Real; // taxa de juros
valor: Real; // valor base para calculo do valor futuro.
pz: Integer // prazo em dias
begin
i := 5//100;
valor:= 1000.00
pz := 30
Result:= valor*( Pot( (1+i), (pz/30) ) //Resultado 1.050,00
end;
no excel a Pot é substituída pelo sinal ^ Ex. =E18*((1+C19)^(C20/30))
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
Dicas:
Não amplie o nome da função, pois as funções financeiras costumam ser bem extensas
Exemplo:
Calcular o valor de um produto para o prazo de 30 dias com a taxa de juros de 5¬ mês.
var
i: Real; // taxa de juros
valor: Real; // valor base para calculo do valor futuro.
pz: Integer // prazo em dias
begin
i := 5//100;
valor:= 1000.00
pz := 30
Result:= valor*( Pot( (1+i), (pz/30) ) //Resultado 1.050,00
end;
no excel a Pot é substituída pelo sinal ^ Ex. =E18*((1+C19)^(C20/30))
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
Dicas:
Não amplie o nome da função, pois as funções financeiras costumam ser bem extensas
Responder
18/02/2003
Consorte
:oops:
Segue abaixo uma função para efetuar a potenciação. É útil para compor formulas financeiras, como a de VP (´PV´ valor presente) VF (´FV´ valor futuro)
Exemplo:
Calcular o valor de um produto para o prazo de 30 dias com a taxa de juros de 5¬ mês.
var
i: Real; // taxa de juros
valor: Real; // valor base para calculo do valor futuro.
pz: Integer // prazo em dias
begin
i := 5//100;
valor:= 1000.00
pz := 30
Result:= valor*( Pot( (1+i), (pz/30) ) //Resultado 1.050,00
end;
no excel a Pot é substituída pelo sinal ^ Ex. =E18*((1+C19)^(C20/30))
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
Dicas:
Não amplie o nome da função, pois as funções financeiras costumam ser bem extensas
Responder
18/02/2003
Carnette
coloca esta 2 fonções no teu program e faz a chamada num envento onclick ou qualquer coisa..
a função vc chama assim:
variavelquerecebeovalorcalculado := Juros(valorquevocequercalcular,taxadejurosquevocequeraplicar,prazoquevocevque);
Function Juros(valor,i : real; pz : integer):Real;
begin
Result:= valor*( Pot( (1+i), (pz/30) ) //Resultado 1.050,00
end;
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
a função vc chama assim:
variavelquerecebeovalorcalculado := Juros(valorquevocequercalcular,taxadejurosquevocequeraplicar,prazoquevocevque);
Function Juros(valor,i : real; pz : integer):Real;
begin
Result:= valor*( Pot( (1+i), (pz/30) ) //Resultado 1.050,00
end;
Function Pot( base, expoente: real ):real; // Potenciação
begin
{ utiliza a função de exponencial e de logaritmo }
Result:= Exp((expoente * Ln( base )));
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)