Elevando um valor

Calculo do 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;