Código de Excel - Código para determinar el Costo Anual Total de un Préstamo (México)

Function DETERMINA_CAT(MONTO, AMORT, PAGOS As Double, FRECUENCIA As String) As Double

Dim FLUJO(100), CONTADOR, TASA, CONT2 As Double

Dim SALDO, CAPITAL, INTERES, IVA As Double

Dim TASA_MENOR, VP_MENOR, TASA_MAYOR, VP_MAYOR, VP_BUSCADO As Double

Dim DENOMINADOR As Double

SALDO = MONTO

VP_MENOR = MONTO * -1

VP_MAYOR = MONTO * -1

VP_BUSCADO = MONTO * -1

TASA_MENOR = 0.01

TASA_MAYOR = 20

TASA = BUSCA_TASA(MONTO, AMORT, PAGOS)

DENOMINADOR = FREC(FRECUENCIA)

For CONTADOR = 0 To (PAGOS - 1)

    INTERES = SALDO * TASA / 1.16

    IVA = INTERES * 0.16

    CAPITAL = AMORT - INTERES - IVA

    SALDO = SALDO - CAPITAL

    FLUJO(CONTADOR) = CAPITAL + INTERES

    VP_MENOR = VP_MENOR + FLUJO(CONTADOR) / (1 + TASA_MENOR) ^ ((CONTADOR + 1) / DENOMINADOR)

Next CONTADOR

Do While (Abs(VP_BUSCADO) > 0.01)

    For CONT2 = 0 To (PAGOS - 1)

        VP_MAYOR = VP_MAYOR + FLUJO(CONT2) / (1 + TASA_MAYOR) ^ ((CONT2 + 1) / DENOMINADOR)

    Next CONT2

    VP_BUSCADO = VP_MAYOR

    VP_MAYOR = MONTO * -1

    TASA_MAYOR = TASA_MENOR + Abs((TASA_MENOR - TASA_MAYOR) / ((VP_MENOR - VP_BUSCADO) / VP_MENOR))

Loop

DETERMINA_CAT = TASA_MAYOR

End Function