Hola, primero de todo decirte que para lo que buscas el cualificador de que
la operaci�n se ha de calcular en dias (*D) se ha de colocar en el campo de
resultado y no en el factor 2. Una vez dicho esto, con SubDur a mi me ha
dado 28 dias.
He hecho una prueba as�:
d dDataIn s d DatFmt(*EUR) Inz(d'2003-01-31')
d dDataFi s d DatFmt(*EUR) Inz(d'2003-02-28')
d iDies s 3p 0
c*
c dDataFi SubDur dDataIn iDies:*D
c*
c Eval *InLR = *On
Compilalo y haz un STRDBG para ver el resultado.
fins aviat...
�lex Corretg�
"Jaime Villa Torres" <[EMAIL PROTECTED]>@QUIJOTE.COMBIOS.ES con
fecha 20/06/2003 00:20:23
Por favor, responda a [EMAIL PROTECTED]
Tram�s per: [EMAIL PROTECTED]
Destinataris: <[EMAIL PROTECTED]>
C�pia:
Classificat: |----------------|
| ( ) Important |
| ( ) urgent |
| ( ) hist�ric |
| ( ) temporal |
| ( ) bretolada |
| ( ) particular |
|----------------|
Assumpte: 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 -----
De: ULISES PETERSON
Para: [EMAIL PROTECTED]
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 -----
From: Javier Roa
To: [EMAIL PROTECTED]
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 diasentre ambos.
Gracias
Javier Roa
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]
