AS/400 - Cálculo con fechas en RPGLE

   
Vista:

Cálculo con fechas en RPGLE

Publicado por David Barron (32 intervenciones) el 07/08/2008 23:44:26
Buenas Tardes a todos:
De casualidad alguno de ustedes ha hecho cálculos con fechas en RPGLE, tengo entendido que si se puede, en coso de que si, pudieras mandarme un ejemplo para analizarlo por favor.
Gracias y Saludos!
David Barrón
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cálculo con fechas en RPGLE

Publicado por Manuel (2 intervenciones) el 13/08/2008 13:00:43
*--------------------------------------------------------------*
* Descripción: Suma/Resta Dias a una fecha. *
* Parametros.: signo (+/-) *
* Dias (2 digitos) *
* Fecha(ddmmaaaa) *
*---------------------------------------------------------------
FECINI S D DATFMT(*EUR)
*---------------------------------------------------------------
*ENTRY PLIST
PARM signo 1
parm dias 4
PARM FECWRK 8
*
MOVE dias diasn 4 0
MOVE FECWRK FECHAS 8 0
MOVE FEChas FECINI
*
signo ifeq '+'
c ADDDUR diasn:*D FECINI
c endif
c signo ifeq '-'
C subDUR diasn:*D FECINI
c endif
*
C MOVE FECINI FEChas
C MOVE FEChas FECWRK
C MOVE *ON *INLR
C RETURN

** Es esto lo que quieres ??, Un saludo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cálculo con fechas en RPGLE

Publicado por David Barrón (32 intervenciones) el 13/08/2008 15:29:25
Gracias!
Ya encontré un ejemplo en un libro, checalo igual y te sirve después:

D DueDate S D INZ(D'2006-06-07')
D Tuday S D

Convierte la fecha diaria a la fecha campo tipo dato
*JOBRUN MOVE *DATE ToDay
Calcula en número de Días Transcurridos
ToDay SunDur DueDate PastDue:*DAYS 3 0
If PastDue>30
ENDIF

Saludos desde Mty N. L. México
David Barrón
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar