Função NPV [VBA]
Calcula o Valor Presente Líquido de um investimento, baseado na taxa de desconto fornecida, e uma série de depósitos e retiradas.
Esta função ou constante torna-se ativa pela instrução Option VBASupport 1, colocada antes do código do programa executável de algum módulo.
NPV (Rate as Double, Values() as Double)
Double
Taxa é a taxa de desconto para um período.
Valores é uma matriz que representa depósitos (valores positivos) ou retiradas (valores negativos).
REM ***** BASIC *****
Option VBASupport 1
Sub ExampleNPV
Dim r As Double
Dim pValues(5) as Double
pValues(0) = 100
pValues(1) = 100
pValues(2) = 100
pValues(3) = -300
pValues(4) = 100
pValues(5) = 100
r = 0.06
p = NPV( r, pValues)
Print p ' retorna 174,894967305331
End Sub