模块
目录
索引 🔎︎

# NPV 函数 [VBA]

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

该功能或常量可通过以下语句启用:「Option VBASupport 1」，该语句需要放置在模块的每个可执行程序代码的前面。

## 语法:

    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 财务函数