Contenido
La función `PPmt` en VBA se utiliza para calcular el pago principal de un préstamo o anualidad para un período específico dado un interés constante y pagos periódicos constantes. La función `PPmt` es parte del objeto `WorksheetFunction`, lo que significa que puedes acceder a ella de la misma manera que a cualquier otra función de hoja de cálculo de Excel, pero desde VBA.
Aquí tienes la sintaxis básica de la función `PPmt`:
PPmt(rate, per, nper, pv, [fv], [type])
Donde:
- `rate`: es la tasa de interés por periodo.
- `per`: es el periodo para el cual quieres calcular el pago principal y debe estar en el rango de 1 a `nper`.
- `nper`: es el número total de periodos de pago en la anualidad.
- `pv`: es el valor presente o el total principal de la serie de pagos futuros.
- `[fv]`: (opcional) es el valor futuro o el saldo en efectivo que se quiere tener después del último pago. Si se omite, se asume que es 0.
- `[type]`: (opcional) es el número 0 (cero) o 1 e indica cuándo vencen los pagos. Si se omite, se asume que es 0. Use 0 si los pagos vencen al final del periodo y 1 si vencen al principio.
A continuación, te muestro un ejemplo de cómo usar la función `PPmt` en VBA para calcular el pago principal de un préstamo:
Sub CalcularPagoPrincipal()
Dim dblTasaInteres As Double
Dim intPeriodo As Integer
Dim intTotalPeriodos As Integer
Dim dblValorPresente As Double
Dim dblPagoPrincipal As Double
' Ingresar los valores para el préstamo
dblTasaInteres = 0.05 / 12 ' Tasa de interés del 5% anual convertida a mensual
intPeriodo = 1 ' Primer pago
intTotalPeriodos = 60 ' Préstamo a 5 años
dblValorPresente = -100000 ' Valor del préstamo
' Calcular el pago principal del primer periodo
dblPagoPrincipal = Application.WorksheetFunction.PPmt(dblTasaInteres, intPeriodo, intTotalPeriodos, dblValorPresente)
' Mostrar el resultado
MsgBox "El pago principal para el primer periodo es: " & dblPagoPrincipal
End Sub
En este ejemplo, el procedimiento `CalcularPagoPrincipal` calcula el pago principal para el primer periodo de un préstamo de 100,000 unidades monetarias con una tasa de interés del 5% al año (que se convierte a mensual dividiendo entre 12) y un término de 5 años (60 pagos mensuales).
Recuerda que `dblValorPresente` es un número negativo porque representa una salida de fondos (es decir, el préstamo que tomas). La `PPmt` devuelve un valor negativo porque es un pago, pero lo mostramos como un número positivo en el mensaje con la función `MsgBox`.