La función PV (Present Value o Valor Presente) en VBA se utiliza para calcular el valor presente de una serie de pagos futuros o de un pago único futuro, basado en una tasa de interés constante. Esta función es útil en análisis financiero para determinar el valor actual de una inversión, un préstamo o cualquier flujo de efectivo que se dé en el futuro.

Sintaxis básica

 PV(rate, nper, pmt, [fv], [type])

• rate: Es la tasa de interés por período.
• nper: Es el número total de periodos de pago en una anualidad.
• pmt: Es el pago realizado en cada período; se asume que los pagos son constantes.
• fv: Es el valor futuro o saldo que deseas obtener después del último pago. Es opcional y su valor predeterminado es 0.
• type: Indica cuándo se deben vencer los pagos. 0 indica al final del período y 1 al principio del período. Es opcional y su valor predeterminado es 0.

Ejemplo de cómo podrías usar la función PV para calcular el valor presente de un préstamo

Sub CalcularValorPresente()
     Dim TasaInteres As Double
     Dim NumeroPeriodos As Integer
     Dim PagoPeriodico As Double
     Dim ValorPresente As Double

    ' Supongamos una tasa de interés del 5% anual

    TasaInteres = 0.05

    ' Supongamos un préstamo a pagar en 10 años (10 periodos)

    NumeroPeriodos = 10

    ' Supongamos pagos anuales de $1,000

    PagoPeriodico = -1000 ' El valor es negativo porque es un desembolso

    ' Usamos la función PV para calcular el Valor Presente

    ValorPresente = PV(TasaInteres, NumeroPeriodos, PagoPeriodico)

    ' Mostramos el resultado
     MsgBox "El Valor Presente del préstamo es: " & ValorPresente
 End Sub

Ten en cuenta que la función PV se encuentra dentro del objeto Application.WorksheetFunction, lo cual significa que al usarla en VBA debes prefijarla con Application.WorksheetFunction.PV.

Asegúrate de adaptar los parámetros a tu caso particular y de interpretar correctamente los valores ingresados, especialmente los signos positivos y negativos que pueden representar entradas y salidas de efectivo.

Conoce nuestra tienda

Ver más productos

Mejora tu nivel y logra tus objetivo

Excel

Access

Power BI

Ayúdanos a hacer crecer el proyecto