CREAR FUNCION QUE CALCULE INTERES MENSUAL

Dudas sobre código
jebcarlos
Nivel 1
Mensajes: 10
Registrado: Lun Ago 27, 2018 1:43 am

CREAR FUNCION QUE CALCULE INTERES MENSUAL

Mensajepor jebcarlos » Sab Abr 03, 2021 6:48 am

Buenas noches

Tengo una tabla en EXCEL donde se calcula el valor de los intereses moratorios los cuales se calculan diariamente y cuya tasa de interés cambia mensualmente.

La tabla tiene la siguiente estructura
VALOR_DEUDA $ 10.000.000
FECHA_VENCIMIENTO 02-ene-2019
FECHA_PAGO_DEUDA 03-mar-2021

ULT_DIA_MES TASA_INT DIAS 791
31-ene-2014 29,48% -
28-feb-2014 29,48% -
31-mar-2014 29,48% - $ -
30-abr-2014 29,45% -
31-may-2014 29,45% -
30-jun-2014 29,45% - $ -
31-jul-2014 29,00% -



TOTAL OBLIGACION $ 10.000.000
TOTAL INTERESES DE MORA LIQUIDADOS $ 5.634.000
TOTAL A PAGAR $ 15.634.000

Ahora bien se coloca el valor de la deuda, desde cuando esta vencida y hasta cuando se cobra.
El valor de la tasa de interés una vez se actualiza no varia para el mes en cuestión.
Los días se calculan de la siguiente manera :
SI ULT_DIA_MES <FECHA_VENCIMIENTO
DIAS = 0
SI ULT_DIA_MES >FECHA_VENCIMIENTO
DIAS = ULT_DIA_MES -FECHA_VENCIMIENTO (teniendo encuenta que dicha valor no puede ser mayor a 31)

Una vez se calcula los días se procede a calcular el valor del interes el cual es igual a

REDONDEAR((TASA_INT/365)*DIAS*VALOR_DEUDA;-3) Redondear a MILES.

Ahora bien dicha tabla la pase a ACCESS con el nombre tblinteresdia y la siguiente estructura
tblinteresdian
consecutivo mes tasa
1 31-ene.-2008 32,75%
2 29-feb.-2008 32,75%
3 31-mar.-2008 32,75%
4 30-abr.-2008 32,88%
5 31-may.-2008 32,88%
6 30-jun.-2008 32,88%
7 31-jul.-2008 32,27%
8 31-ago.-2008 32,27%
9 30-sept.-2008 32,27%


Y en otra tabla tengo prestamos

PAGARE FECHA_VTO VALOR_DEUDA
'18837716 12/03/2018 9374904
'3832319 8/10/2018 208331
'18841452 31/05/2018 390615
'20241983 20/09/2018 208328
'3723233 1/06/2018 390621
'20241818 20/09/2018 390615
'18840240 3/05/2018 130205


Ahora bien deseo crear una consulta que tenga la siguiente estructura

PAGARE FECHA_VTO VALOR_DEUDA DIAS_MORA VAR_INTERES VALOR_DEUDA
'18837716 12/03/2018 9374904
'3832319 8/10/2018 208331
'18841452 31/05/2018 390615
'20241983 20/09/2018 208328
'3723233 1/06/2018 390621
'20241818 20/09/2018 390615
'18840240 3/05/2018 130205

Donde DIAS_MORA = FECHA_ACTUAL - FECHA_VTO

Y EL VAR_INTERES el sistema haga
UN DLOOKUP en la TABLA tblinteresdian y me compare la FECHA_VTO contra MES
SI MES<FECHA_VTO;
DIAS=0
ELSE
MES>FECHA_VTO
DIAS= MES-FECHA_VTO
VAR_INTERES= DIAS*MES(evaluado)/365*VALOR_DEUDA

Esta iteración se debe hacer desde el principio de la tabla hasta el final e ir guardando el VAR_INTERES hasta que se llegue a final de la tabla tblinteresdia.
Y se debe hacer para cada registro de la tabla prestamos

Volver a “Código VBA”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 6 invitados