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

Código para determinar el Costo Anual Total de un Préstamo (México)gráfica de visualizaciones


Excel

Publicado el 23 de Febrero del 2016 por Izcoatl Inzunza
1.404 visualizaciones desde el 23 de Febrero del 2016. Una media de 35 por semana
imagen

Requerimientos

Microsoft Excel (c) 2010 en adelante

1.0

Publicado el 23 de Febrero del 2016gráfica de visualizaciones de la versión: 1.0
1.405 visualizaciones desde el 23 de Febrero del 2016. Una media de 35 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

para mayor información del cálculo del CAT vea el siguiente video:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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

Si alguno de los archivos de descarga no funciona, comentanos aquí el error.




Comentarios sobre la versión: 1.0 (0)


No hay comentarios
 

Comentar la versión: 1.0

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios

http://lwp-l.com/s3442