|
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
| 