Como calcular Valor Presente em VBA

[Adolfo_Moura]

Prezados colegas saudações,

Estou precisando fazer um cálculo em VBA trazendo os valores das parcelas restantes de um financiamento conforme memoria de cálculo abaixo.

VP = Vlr parc/(1+Tx)^n

Ex.:

VP = ?

Vlr parc = 800

Tx = 1,5%

n = 3

VP =(800 / (1+0,015)^1) + (800 / (1+0,015)^2) + (800 / (1+ 0,015)^3)

VP = Vlr achado.

Tenho que ter as variáveis acima sendo calculado internamente na macro.

Agradeço a ajuda.

Edited April 22, 2012 by Adolfo_Moura

[benzadeus]

Sub Exemplo()

Dim dNúmeroPeríodos As Double

Dim dValorPresente As Double

Dim dTaxa As Double

Dim dValorParcelas As Double

dTaxa = 0.015

dNúmeroPeríodos = 3

dValorPresente = 800

dValorParcelas = VBA.Pmt(dTaxa, dNúmeroPeríodos, -dValorPresente)

MsgBox dValorParcelas

End Sub