Funktion NPV [VBA]
Berechnet den Barwert einer Investition, basierend auf einem vorgegebenen Diskontsatz und einer Reihe von Ein- und Auszahlungen.
Diese Funktion oder Konstante wird mit der Anweisung Option VBASupport 1 aktiviert, die in einem Modul vor dem ausführbaren Programmcode steht.
NPV (Rate as Double, Values() as Double)
Double
Rate ist das Disagio für einen Zeitraum.
Values() ist eine Matrix mit Einzahlungen (positive Werte) und Auszahlungen (negative Werte).
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 ' ergibt 174,894967305331
End Sub