Buscar

Função de potenciação - juros

Código

{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; {Não amplie o nome da função, pois as funções financeiras costumam ser bem extensas. }

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%


Detalhes da dica

Categoria: Object pascal
Adicionada dia: 20/06/03
Por: Felipe Monteiro
Visualizada: 9869 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009