|
La instrucci�n SubDur nos da la diferencia entre
fecha, ya sea a�os , mes o dias.
Pero el calculo financiero(que es de a�os de 360
d�as es otra cosa.)
Ejemplo quremos calcular cuanto inter�s paga un
pr�stamo en desde el 31 de enero de 2003 al 28 de febrero del 2003.
La formula nos indica (calculo sobre saldo) que el
monto multiplicado por la tasa y dividido entre 360 el resultado multiplicado
por los d�as transcurrido nos da el inter�s a pagar.
((Monto X Tasa)/360) x d�as transcuridos. En todo
caso ya sea que utilicemos la formula de Excel si(x,y,"d") o la instrucciones
SubDur las dos no indican que han pasado 28 dias. Vuelvo y repito, SubDur no es
una formula financiera es para calcular la diferencia de dias, o a�os o
meses.
----- Original Message -----
Sent: Thursday, June 19, 2003 5:20
PM
Subject: Re: Diferencia de Fechas en
dias
Por favor probar con SUBDUR las siguientes fechas
20030131 y 20030228 con dias.
Gracias
Jaime Villa T.
----- Mensaje original -----
Enviado: Jueves, 20 de Junio de 2002
11:27 a.m.
Asunto: Re: Diferencia de Fechas en
dias
*************** Principio de datos
*****************************
F*
F* RUTINA PARA CALCULAR LOS MESES QUE HAY ENTR DOS
FECHAS
F*
F*
20-3-2000
F* PROGRAMADOR: ULISES PETERSON -
PANAMA
F*
F***************************************************************
F*
D*
DFEC_INIC
S
D
DATFMT(*ISO)
DFEC_FINC
S
D
DATFMT(*ISO)
D*
DDIAQFL
S
4
0
C*
C
*ENTRY
PLIST
C
PARM
@FECI
8
C
PARM
@FECF
8
C* Parametro de
salida
C
PARM
@DIAS
4
C*
C
MOVEL
@FECI
FEC_INI 8
0
C
MOVEL
@FECF
FEC_FIN 8
0
C*
C
EXSR
CAL_FECHA
C
SETON
LR
C
FIN
TAG
C*
---------------------------------------------------------
C*
C* SUBRUTINA CAL_FECHA CALCULO DE
LOS PLAZOS EN
MESES
C*
C*
---------------------------------------------------------
C*
C CAL_FECHA
BEGSR
0034.00
C*
0035.00
C
SETOFF
30
0036.00 C
*ISO
TEST(D)
FEC_INI
30
0037.00 C
N30
MOVE
FEC_INI
FEC_INIC
0038.00
C*
0039.00
C
SETOFF
30
0040.00 C
*ISO
TEST(D)
FEC_FIN
30
0041.00 C
N30
MOVE
FEC_FIN
FEC_FINC
0042.00
C*
0043.00 C FEC_FINC
SUBDUR FEC_INIC
DIAQFL:*D
0044.00
C
MOVE
DIAQFL
@DIAS
0045.00
C*
0046.00
C
ENDSR
****************** Fin de
datos
***************************************
Se espera
que la fecha venga AAAAMMDD (a�o,mes,dia). Con cambiar el campo resultado en
la instruccion SUBDUR DIAQFL:*D por *Y o *M se recoge a�os o meses, en
la intruccion actual *D se regoge dias.
Esperamos haber ayudado.
Esto es en ILRPG.
----- Original Message -----
Sent: Wednesday, June 18, 2003 4:24
PM
Subject: Diferencia de Fechas en
dias
Amigos:
Existe un
programa o utilidad que me permita enviar 2 fechas y obtener como
resultado la cantidad de dias entre
ambos.
Gracias
Javier Roa
| 