目录

# NPV 函数 [VBA]

计算投资的当前净值，基于提供的贴现率以及一系列的存取款。

This constant, function or object is enabled with the statement Option VBASupport 1 placed before the executable program code in a module.

### 语法:

    NPV (Rate as Double, Values() as Double)

### 返回值:

Double

### 参数:

「Rate」各个周期的贴现率。

「Values()」是代表存款 (正值) 或取款 (负值) 的数组。

### 错误代码:

5 无效的过程调用

### 示例:

    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 ' 返回 174,894967305331
    End Sub

相关主题

Calc 中的 NPV 函数

VBA 财务函数