Funci贸n NPV [VBA]

Calcula el valor presente neto de una inversi贸n, bas谩ndose en la tasa de descuento que se proporcione, as铆 como en una serie de dep贸sitos y retiros.

warning

Esta constante, funci贸n u objeto se activa mediante la instrucci贸n Option VBASupport 1, colocada antes del c贸digo ejecutable del programa en un m贸dulo.


Sintaxis:


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

Valor de retorno:

Double

Par谩metros:

Tasa es la tasa de inter茅s de un per铆odo.

Valores() es una matriz que representa dep贸sitos (valores positivos) o retiros (valores negativos).

C贸digos de error:

5 Llamada a procedimiento no v谩lida

Ejemplo:


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

隆Necesitamos su ayuda!