Re: Diferencia de Fechas en dias

ULISES PETERSON Thu, 19 Jun 2003 09:30:45 -0700

*************** 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 dias entre ambos.

Gracias

Javier Roa

Re: Diferencia de Fechas en dias

Responder a