NPV

---

構文

NPV(rate,values())

引数rateには、投資期間を通じて一定の割引率を小数点を用いて倍精度浮動小数点数型で指定します。

引数values()には、キャッシュフローの値を示す倍精度小数点型の配列を指定します。

解説

定期的なキャッシュフローと割引率に基づいて、投資の正味現在価値を返します。

投資の正味現在価値とは、将来行われる一連の支払いと収益を現時点での現金価値に換算したものです。

サンプル

次の例は、5000の投資を行い、その後４年間のキャッシュフローをそれぞれ、１年目：2200、２年目：2500、３年目：2800、４年目：3100、としたとき、割引率が年利6%の場合の正味現在価値を計算します。

Sub Sample()
    Dim RetRate As Double, NetPVal As Double, Msg As String
    Dim Values(5) As Double
    RetRate = 0.06
    Values(0) = -5000
    Values(1) = 2200: Values(2) = 2500
    Values(3) = 2800: Values(4) = 3100
    NetPVal = NPV(RetRate, Values())
    Msg = "正味現在価値は " & Format(NetPVal, "###,##0.00") & " です。"
    MsgBox Msg
End Sub