Cobol differenza tra due date

Altre pagine:
	1] Plausibilità date
	2] Aggiunta di un numero di giorni ad una data
	3] Calcolo della differenza in giorni tra due date

Calcolo della differenza in giorni tra due date.

Questa è la parte relativa alla Working-Storage Section.

000001*
000002*             Tabella giorni mese
000003*
000004 1   TABG.
000005  2  FILLER      PIC  99     VALUE   31.  *> Gennaio
000006  2  FILLER      PIC  99     VALUE   28.  *> Febbraio
000007  2  FILLER      PIC  99     VALUE   31.  *> Marzo
000008  2  FILLER      PIC  99     VALUE   30.  *> Aprile
000009  2  FILLER      PIC  99     VALUE   31.  *> Magggio
000010  2  FILLER      PIC  99     VALUE   30.  *> Giugno
000011  2  FILLER      PIC  99     VALUE   31.  *> Luglio
000012  2  FILLER      PIC  99     VALUE   31.  *> Agosto
000013  2  FILLER      PIC  99     VALUE   30.  *> Settembre
000014  2  FILLER      PIC  99     VALUE   31.  *> Ottobre
000015  2  FILLER      PIC  99     VALUE   30.  *> Novembre
000016  2  FILLER      PIC  99     VALUE   31.  *> Dicembre
000017*
000018*
000019 1   GTABX   REDEFINES  TABG.
000020  2  GTAB    PIC 99 OCCURS 12.
000021*
000022*
000023 1   DAT-IN      PIC     9(6).
000024 1   DAT-INX     REDEFINES  DAT-IN.
000025  2  GIN     PIC  99.
000026  2  MIN     PIC  99.
000027  2  AIN     PIC  99.
000028*
000029*
000030*
000031 1   DAT-OUT     PIC     9(6).
000032 1   DAT-OUTX    REDEFINES DAT-OUT.
000033  2  GOU     PIC  99.
000034  2  MOU     PIC  99.
000035  2  AOU     PIC  99.
000036*
000037*
000038*
000039 1   ADAY    PIC  9(5).
000040 1   RDAY    PIC  9(5).
000041 1   HDAY    PIC  9(5).
000042 1   WDAY    PIC  9(5).
000043 1   TDAY    PIC  9(6).
000044 1   DREST   PIC  9.
000045 1   DQUOZ   PIC  99.
000046*
000047*
000048 1    P1    PIC 99.
000049 1    P2    PIC 99.
000050 1    P3    PIC 99.
000051 1    P4    PIC 99.
000104 1    P3C   PIC 9(4).
000105 1    P4C   PIC 9(4).
000052*

I campi utilizzati sono:

DAT-IN data da paragonare 1 (la più piccola) nel formato ggmmaa.
DAT-OUT data da paragonare 2 (la più grande) nel formato ggmmaa.
ADAY differenza in giorni tra le due date.

Questa è la parte relativa alla Procedure Division.

000001*          Calcolo giorni di trascorsi tra due date
000002*
000003*        (Date ammesse tra 01.01.1931 ed il 31.12.2030)
000004*
000005*
000006*      DAT-IN  Data più piccola  (DAL)    *> Input formato ggmmaa
000007*      DAT-OUT Data più grarde   (AL)     *> Input formato ggmmaa
000008*      ADAY = Differenza date in giorni   *> Output
000009*      WDAY = Cumulo giorni (calcolo)
000010*      HDAY = Lavoro tabella mesi
000011*      P1   = Pointer mese inizio (+1)
000012*      P2   = Pointer mese fine   (-1)
000013*      P3   = Anno inizio + incremento
000014*      P4   = Anno finale (+-1)
000015*      P3C  = Anno inizio a 4 cifre
000016*      P4C  = Anno finale a 4 cifre
000017 DAY-DIF.
000018     MOVE  0  TO  HDAY, ADAY, WDAY.
000019*
000020*
000021     IF MIN = MOU  AND AIN = AOU
000022                   SUBTRACT GIN FROM GOU GIVING ADAY
000023                   GO DAY-DIFE.
000024     MOVE  GTAB(MIN)  TO  HDAY.
000025*
000026     MOVE  AIN        TO P3C.
000027     IF P3C > 30 ADD 1900 TO P3C
000028       ELSE      ADD 2000 TO P3C.
000029*
000030     IF  MIN  =  2   PERFORM  DAY50  THRU DAY60.
000031     SUBTRACT  GIN   FROM  HDAY  GIVING  ADAY.
000032     ADD GOU   TO ADAY.
000033     MOVE MIN  TO P1.
000034     MOVE MOU  TO P2.
000035     MOVE AIN  TO P3C.
000036     MOVE AOU  TO P4C.
000037     IF P3C > 30 ADD 1900 TO P3C
000038       ELSE      ADD 2000 TO P3C.
000039     IF P4C > 30 ADD 1900 TO P4C
000040       ELSE      ADD 2000 TO P4C.
000041     ADD 1 TO P1.
000042     SUBTRACT 1 FROM P2.
000043     IF P1 > 12 MOVE 1 TO P1 
000044                ADD 1  TO P3C.
000045*
000046     IF P2 =  0 MOVE 12 TO P2 
000047                SUBTRACT 1 FROM P4C.
000048*
000049 DAY-D1.
000050*
000051         IF P1 > P2
000052         IF  P3C = P4C  GO DAY-DIFE.
000053         IF  P3C > P4C  GO DAY-DIFE.
000054         MOVE GTAB(P1)  TO HDAY.
000055         IF P1 = 2 PERFORM DAY50 THRU DAY60.
000056         ADD HDAY TO ADAY.
000057         ADD 1 TO P1.
000058         IF P1 > 12 ADD 1  TO P3C 
000059                    MOVE 1 TO P1.
000060         GO DAY-D1.
000061*
000062 DAY-DIFE.
000063     EXIT.
000064*
000065*
000066*
000067*            Trattamento se anno bisestile
000068 DAY50.
000069     MOVE 0  TO  DREST.
000070     DIVIDE  P3C   BY 4 GIVING DQUOZ REMAINDER DREST.
000071     IF  DREST = 0  ADD 1 TO  HDAY.
000072 DAY60.
000073     EXIT.
000074*

Nota:
In questa routine nelle date dal / al l’anno è indicato con due cifre.
Perciò un valore tra 31 e 99 viene considerato come anno 1931 - 1999.
Un valore tra 00 e 30 viene considerato come anno 2000 - 2030.
In caso di necessità è possibile modificare un modo semplice questi valori.
Sarebbe sarebbe pure possibile rendere questi valori dinamici basandosi sulla data di sistema.
Attualmente questa routine copre le mie esigenze nell’ambito commericale.

Come prelevare questi codici

Pagina precedente

Cobol in pratica

Calcolo della differenza in giorni tra due date.