En el presente ejercicio, se ha creado una función con la ayuda del programador VBA que permite calcular la cuota a pagar mensualmente en un contrato de Leasing.
UDF-Calculo de cuota para Leasing
El Contrato de Leasing o de alquiler con derecho de compra es un contrato a través del cual el arrendador traspasa el derecho a usar un bien a cambio del pago de cuotas de arrendamiento durante un plazo determinado. Una vez que finaliza el contrato, el arrendatario puede adquirir el bien a un determinado precio, lo que se denomina opción de compra.
La fórmula para calcular la cuota mensual es:
C=(V- Op) x [i/1-(1+i)-n]+(Op x i)
Dónde:
C= cuota de arrendamiento
V= valor del contrato
i= tasa de interés
n=período de pago de la cuota de arrendamiento y
Op= Opción de compra
Para crear la función “Cuota”, ingresamos al programador de VBA y escribimos los siguientes comandos:
Function cuota(arg1, arg2, arg3)
calculo = (arg1 - arg3) * (0.01097885 / (1 - (1 + 0.01097885) ^ -arg2)) + (arg3 * 0.01097885)
cuota = calculo
End Function