Fonction NPV [VBA]

Calcul la valeur actuelle nette d'un investissement, basée sur un taux d'actualisation fourni, et une série de dépôts et de retraits.

Cette fonction ou constante est activée avec l'instruction Option VBASupport 1 placée avant le code du programme exécutable dans un module.

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

Double

taux représente le taux d'escompte pour une période.

Valeurs() est une matrice que représente les dépôts (valeurs positives) et les retraits (valeurs négatives).

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 ' renvoie 174,894967305331

End Sub