estUneDate [Sources]

**Deallyra** · 14/03/2009, 21h24

Bonjour,

Voici un petit programme que j'ai fait pour vérifier si une date saisie est "correcte"

Le programme prend en entrée une saisie de type JJ-MM-AAAA et retourne la valeur 1 si la date est invalide, 0 sinon.

Le programme vérifie que chaque attribut de la date est un numérique.
Si l'année est bissextile ou non et ensuite, vérifie que le mois et le jour concordent.

___

Si vous avez des améliorations à apporter (et je sais qu'il y en a un paquet) , elles seront les bienvenues

___

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
            **************************************************************************
      *0011111111112222222222333333333344444444445555555555666666666677*7777777*
      *8901234567890123456789012345678901234567890123456789012345678901*3456789*
      **************************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. estUneDate.
       AUTHOR. Deallyra.
       DATE-WRITTEN. 14-03-2009.
       DATE-COMPILED. 14-03-2009.
       
      *    ***************
      *    VERIFICATION D'UNE DATE
      *    ***************
      
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
      *    Structure temporaire vérifiant numéricité
           01 W-DATE2.
             02 W-JOUR2 PIC XX.
             02 FILLER PIC X.
             02 W-MOIS2 PIC XX.
             02 FILLER PIC X.
             02 W-ANNEE2 PIC X(4).
             
      *    Structure temporaire numérique
           01 W-DATE-N.
             02 W-JOUR-N PIC 99.
             02 FILLER PIC X.
             02 W-MOIS-N PIC 99.
             02 FILLER PIC X.
             02 W-ANNEE-N PIC 9(4).
             
      *       
           77 W-CNT PIC 9.
           77 W-BISSEXTILE PIC X.
             88 W-BISSEXTILE-VRAI VALUE "V".
             88 W-BISSEXTILE-FAUX VALUE "F".
           
      *    Variables de calcul
           77 W-ANNEE-DIVIDE PIC 9999V99.
           77 W-ANNEE-TRUNC PIC 9999.
      
      *     
           01 W-EST-NUMERIQUE PIC 9.
           
       LINKAGE SECTION.
      *    Une date
           01 W-DATE.
             02 W-JOUR PIC XX.
             02 FILLER PIC X.
             02 W-MOIS PIC XX.
             02 FILLER PIC X.
             02 W-ANNEE PIC X(4).
      *    Le résultat
           01 W-INVALIDE PIC 9.
           01 W-NUMERIQUE PIC 9(10).
      *************************************************************************      
      *0011111111112222222222333333333344444444445555555555666666666677*7777777*
      *8901234567890123456789012345678901234567890123456789012345678901*3456789*
      **************************************************************************
       PROCEDURE DIVISION USING W-DATE W-INVALIDE.
      
      *    ***************
      *    Spécifiations fonctionnelles
      *
      *    La date passée en paramètre est controlée sur sa pertinence.
      *    Est ce que cette date peut être trouvée dans le calendrier?
      *
      *    W-DATE               Input
      *      La date que l'on reçoit en paramètre.
      *      Sera d'abord testé l'année puis le mois et enfin le jour.
      *    W-INVALIDE
      *      1 si la date est invalide
      *      0 sinon.
      *      Dès qu'une partie de la date est invalide
      *        le programme s'arrête et renvoie 1, invalide.
      *    ***************
       DEBUT.
      
      *    On considère la date comme étant invalide.
           MOVE 1 TO W-INVALIDE
           PERFORM VERIFIER-NUMERIQUE
           PERFORM BISSEXTILE
           PERFORM DATE-VALIDE
           PERFORM FIN-PROGRAMME
       FIN.
       
       VERIFIER-NUMERIQUE.
      *    ***************
      *    Est ce que la date est pourvue de chiffres seulement, à
      *      l'exception des tirets séparant jour mois et année ?
      *    ***************
      
      *  On vérifie l'année
      *     INSPECT W-ANNEE REPLACING LEADING  ' ' BY '0'
      *     MOVE FUNCTION REVERSE(W-ANNEE) TO W-ANNEE2
      *     MOVE 0 TO W-CNT
      *     INSPECT W-ANNEE2 TALLYING W-CNT FOR LEADING SPACE
      *     COMPUTE W-CNT = LENGTH OF W-ANNEE - W-CNT
      *     IF W-ANNEE(1:W-CNT) IS NOT NUMERIC THEN
      *       PERFORM FIN-PROGRAMME
      *     END-IF
           CALL "estUnNumerique" USING
             BY CONTENT W-ANNEE,
             BY REFERENCE W-EST-NUMERIQUE W-NUMERIQUE.
           IF W-EST-NUMERIQUE EQUAL 1 THEN
             PERFORM FIN-PROGRAMME
           END-IF
      *  On vérifie le mois
           CALL "estUnNumerique" USING
             BY CONTENT W-MOIS,
             BY REFERENCE W-EST-NUMERIQUE W-NUMERIQUE.
           IF W-EST-NUMERIQUE EQUAL 1 THEN
             PERFORM FIN-PROGRAMME
           END-IF
      *  On vérifie le jour
           CALL "estUnNumerique" USING
             BY CONTENT W-JOUR,
             BY REFERENCE W-EST-NUMERIQUE W-NUMERIQUE.
           IF W-EST-NUMERIQUE EQUAL 1 THEN
             PERFORM FIN-PROGRAMME
           END-IF
       FIN-VERIFIER-NUMERIQUE.
           EXIT.
       
       BISSEXTILE.
      *    ***************
      *    Est ce une année BISSEXTILE ?
      *      Divisible par 4 mais non divisible par 100 sauf si
      *        également divisible par 400
      *    ***************
      	Si (annee/4) n'est pas un entier Alors
		estBissextile = faux
		Si (annee/100) n'est pas un entier Alors
			Si (annee/400) n'est pas un entier Alors
				estBissextile := faux
			Sinon
				estBissextile = vrai
			Fin Si
		Sinon
			estBissextile = faux
		Fin Si
	Sinon
		estBissextile = vrai
	Fin Si
	
           MOVE W-DATE TO W-DATE-N
           DIVIDE 4 INTO W-ANNEE-N GIVING W-ANNEE-DIVIDE
           DIVIDE 4 INTO W-ANNEE-N GIVING W-ANNEE-TRUNC
      *    L'Année divisible par quatre ?
           IF W-ANNEE-DIVIDE NOT EQUAL W-ANNEE-TRUNC THEN
             MOVE "F" TO W-BISSEXTILE
           ELSE
             DIVIDE 100 INTO W-ANNEE-N GIVING W-ANNEE-DIVIDE
             DIVIDE 100 INTO W-ANNEE-N GIVING W-ANNEE-TRUNC
      *      L'Année non divisible par cent ?
             IF W-ANNEE-DIVIDE EQUAL W-ANNEE-TRUNC THEN
               DIVIDE 400 INTO W-ANNEE-N GIVING W-ANNEE-DIVIDE
               DIVIDE 400 INTO W-ANNEE-N GIVING W-ANNEE-TRUNC
      *        Mais année divisible par quatre cent ?
               IF W-ANNEE-DIVIDE NOT EQUAL W-ANNEE-TRUNC THEN
                 MOVE "F" TO W-BISSEXTILE
               ELSE
                 MOVE "V" TO W-BISSEXTILE
               END-IF
             ELSE
               MOVE "V" TO W-BISSEXTILE
             END-IF
           END-IF
       FIN-BISSEXTILE.
           EXIT.
           
       DATE-VALIDE.
      *    ***************
      *    Est ce que l'année est comprise entre 1959 et 2100
      *      (je modifierai le code en 2101 pour le mettre à jour)
      *    ***************
           IF W-ANNEE < 1959 OR W-ANNEE > 2100 THEN
             PERFORM FIN-PROGRAMME
           END-IF
           
          
      *    ***************
      *    Est ce que le mois est valide ?
      *      Donc comprit entre 01 et 12
      *    ***************
           IF W-MOIS < 01 OR W-MOIS > 12 THEN
             PERFORM FIN-PROGRAMME
           END-IF
           
      *    ***************
      *    Est ce que le jour est valide ?
      *      Donc comprit entre 01 et 31
      *                      ou 01 et 30
      *                      ou 01 et 29
      *                      ou 01 et 28
      *    ***************
           EVALUATE W-MOIS
             WHEN 01
             WHEN 03
             WHEN 05
             WHEN 07
             WHEN 08
             WHEN 10
             WHEN 12
               IF W-JOUR <= 01 OR W-JOUR >= 31 THEN
                 PERFORM FIN-PROGRAMME
               END-IF
             WHEN 04
             WHEN 06
             WHEN 09
             WHEN 11
               IF W-JOUR <= 01 OR W-JOUR >= 30 THEN
                 PERFORM FIN-PROGRAMME
               END-IF
             WHEN 02
               IF W-JOUR <= 01 OR
                  (W-BISSEXTILE-VRAI AND W-JOUR > 29) OR
                  (W-BISSEXTILE-FAUX AND W-JOUR > 28) THEN
                 PERFORM FIN-PROGRAMME
               END-IF
             WHEN OTHER
               MOVE 0 TO W-INVALIDE
           END-EVALUATE
           MOVE 0 TO W-INVALIDE
           PERFORM FIN-PROGRAMME
       FIN-DATE-VALIDE.
           EXIT.
           
       FIN-PROGRAMME.
           CANCEL "estUnNumerique"
           EXIT PROGRAM
       FIN-FIN-PROGRAMME.
           EXIT.

et un test :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
      **************************************************************************
      *0011111111112222222222333333333344444444445555555555666666666677*7777777*
      *8901234567890123456789012345678901234567890123456789012345678901*3456789*
      **************************************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. test.
       AUTHOR. Deallyra.
       DATE-WRITTEN. 14-03-2009.
       DATE-COMPILED. 14-03-2009.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
           77 W-DATE PIC X(10).
           77 W-CONTROLE PIC 9.
           77 W-TEMPORISATEUR PIC X.
       PROCEDURE DIVISION.
       DEBUT.
         MOVE "17-08-2003" TO W-DATE
         CALL "verifierDate" USING
           BY CONTENT W-DATE,
           BY REFERENCE W-CONTROLE.
         DISPLAY W-DATE " est une date " WITH NO ADVANCING
         IF W-CONTROLE = 1 THEN
           DISPLAY "invalide."
         ELSE
           DISPLAY "valide."
         END-IF  
         
         MOVE "29-02-1600" TO W-DATE
         CALL "verifierDate" USING
           BY CONTENT W-DATE,
           BY REFERENCE W-CONTROLE.
         DISPLAY W-DATE " est une date " WITH NO ADVANCING
         IF W-CONTROLE = 1 THEN
           DISPLAY "invalide." WITH NO ADVANCING
         ELSE
           DISPLAY "valide." WITH NO ADVANCING
         END-IF
         
         CANCEL "verifierDate"
         
         ACCEPT W-TEMPORISATEUR
       FIN.

**Hédhili Jaïdane** · 15/03/2009, 09h18

Il y a une exception à l'exception dans la définition de l'année bissextile : divisible par 4 sauf quand elle est divisible par 100 mais elle est bissextile quand elle est divisible par 400 (cas de 2000 et de 1600 mais pas de 1900, 1800 et 1700)

**Deallyra** · 15/03/2009, 11h31

Merci pour cette précision.

Code mis à jour

(vous ne pourrez pas tester directement sur 1600 ou 2400 sans changer un peu le code.
1959, vous saurez surement pourquoi

2100... c'est discutable. Mais pour gérer le retour d'un livre, une fin de loc. ou alors la date de naissance, ça va ^^ )
___

Par contre, il ne doit pas être dans la meilleure forme possible.

**Luc Orient** · 15/03/2009, 11h52

A moins que je me trompe, mais je n'ai pas vu dans le programme d'initialisation de la variable W-INVALIDE ...

**Deallyra** · 15/03/2009, 11h55

L'initialisation ?

Elle se fait avant de quitter le programme en fait.

Vu que je ne la teste jamais et que je quitte le programme juste après lui avoir donné une valeur, je ne pensais pas que c'était un problème >.<

Mais bon. Il est vrai que si je lui donnais la valeur 1 (date invalide) de base, je n'aurais qu'à mettre 0 si elle est valide.

Les deux codes se valent niveau résultat non ?

Même si celui que je proposais était, en effet, moins bien réfléchi

___

mise à jour faîte

**Luc Orient** · 15/03/2009, 14h41

Envoyé par Deallyra

L'initialisation ?

Elle se fait avant de quitter le programme en fait.

Vu que je ne la teste jamais et que je quitte le programme juste après lui avoir donné une valeur, je ne pensais pas que c'était un problème >.<

Mais bon. Il est vrai que si je lui donnais la valeur 1 (date invalide) de base, je n'aurais qu'à mettre 0 si elle est valide.

Les deux codes se valent niveau résultat non ?

Je n'avais pas vu l'affectation dans le dernier paragraphe ...

Pour moi, les deux codes se valent ... après c'est juste affaire de goût et d'habitude ...

**ekans** · 25/03/2009, 16h41

Bonjour,

Je me permet d'ajouter un autre programme de vérification de la validité d'une date qui a la particularité d'utiliser les niveaux 88. Il n'y donc aucun calcul d'effectuer dans le programme.
Quelques exemples de test sont dans le programme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192

       IDENTIFICATION DIVISION.                                         
      *--------------------------------------------------------------   
       PROGRAM-ID. D3B034.                                              
       AUTHOR. MOI.                                                     
      *--------------------------------------------------------------   
      * DESCRIPTION : TEST LA VALIDITE D'UNE DATE                       
      *--------------------------------------------------------------   
       ENVIRONMENT DIVISION.                                            
      *--------------------------------------------------------------   
       DATA DIVISION.                                                   
      *--------------------------------------------------------------   
       WORKING-STORAGE SECTION.                                         
      *--------------------------------------------------------------   
       01  DATE-2-CHECK.                                                
           05 JOUR PIC XX.                                              
              88 DD-29 VALUE '29'.                                      
              88 JOUR-FEVRIER VALUE '01' THRU '29'.                     
              88 JOUR-30 VALUE '01' THRU '30'.                          
              88 JOUR-31 VALUE '01' THRU '31'.                          
           05 PIC X.                                                    
           05 MOIS PIC XX.                                              
              88 MOIS-30 VALUE '03', '05', '09', '11'.                  
              88 MOIS-31 VALUE '01', '03', '05', '07', '08', '10', '12'.
              88 FEVRIER VALUE '02'.                                    
           05 PIC X.                                                    
           05 ANNEE PIC X(4).                                           
              88 ANNEE-OK VALUE '0001' THRU '9999'.                     
           05 ANNEE-FILLER REDEFINES ANNEE.                             
              10 PIC XX.                                                
                 88 ANNEE-DIV-400 VALUE '04', '08', '12', '16', '20',   
                    '24', '28', '32', '36', '40', '44', '48', '52',     
                    '56', '60', '64', '68', '72', '76', '80', '84',     
                    '88', '92', '96'.                             
              10 PIC XX.                                                
                 88 ANNEE-DIV-100 VALUE '00'.                           
                 88 ANNEE-DIV-4   VALUE '04', '08', '12', '16', '20',   
                    '24', '28', '32', '36', '40', '44', '48', '52',     
                    '56', '60', '64', '68', '72', '76', '80', '84',     
                    '88', '92', '96'.                             
                                                                                                           
       01 PIC X VALUE '0'.                                              
          88 DATE-VALID VALUE '1'.                                      
          88 DATE-INVALID VALUE '0'.                                    
                                                                        
      *--------------------------------------------------------------   
       PROCEDURE DIVISION.                                              
      *--------------------------------------------------------------   
      *--------------------------------------------------------------   
       B0-MAIN SECTION.                                                 
      *--------------------------------------------------------------   
                                                                        
           MOVE '01-01-1979' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '29-02-2000' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '29-02-2001' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '55-01-2000' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '01-01-AAAA' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '01-99-AAAA' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '31-04-2009' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '29-02-2004' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           MOVE '29-02-1900' TO DATE-2-CHECK                            
           PERFORM CHECK-DATE                                           
           IF DATE-VALID THEN                                           
              DISPLAY DATE-2-CHECK ' EST VALIDE'                        
           ELSE                                                         
              DISPLAY DATE-2-CHECK ' EST INVALIDE'                      
           END-IF                                                       
                                                                        
           GOBACK                                                       
                                                                        
           .                                                            
       B0-EXIT.                                                         
           EXIT.                                                        
                                                                        
      *--------------------------------------------------------------   
       CHECK-DATE SECTION.                                              
      *--------------------------------------------------------------   
           SET DATE-INVALID TO TRUE                                     
                                                                        
           IF ANNEE-OK THEN                                             
                                                                        
              IF     MOIS-30                                            
                 AND JOUR-30 THEN                                       
                 SET DATE-VALID TO TRUE                                 
                 GO TO CHECK-DATE-EXIT                                  
              END-IF                                                    
                                                                        
              IF     MOIS-31                                            
                 AND JOUR-31 THEN                                       
                 SET DATE-VALID TO TRUE                                 
                 GO TO CHECK-DATE-EXIT                                  
              END-IF                                                    
                                                                        
              IF     FEVRIER                                            
                 AND JOUR-FEVRIER THEN                                  
                 IF DD-29 THEN                                          
                    PERFORM CHECK-BISEXTILE                             
                    GO TO CHECK-DATE-EXIT                               
                 ELSE                                                   
                    SET DATE-VALID TO TRUE                              
                    GO TO CHECK-DATE-EXIT                               
                 END-IF                                                 
                                                                        
              END-IF                                                    
                                                                        
           END-IF                                                       
                                                                        
           .                                                            
       CHECK-DATE-EXIT.                                                 
           EXIT.                                                        
                                                                        
      *--------------------------------------------------------------   
       CHECK-BISEXTILE SECTION.                                         
      *--------------------------------------------------------------   
                                                                        
      *    SI ANNEE DIVISIBLE PAR 100                                   
           IF ANNEE-DIV-100 THEN                                        
                                                                        
      *       SI ANNEE DIVISIBLE PAR 400 ==> DATE VALIDE                
              IF ANNEE-DIV-400 THEN                                     
                 SET DATE-VALID TO TRUE                                 
              END-IF                                                    
                                                                        
           ELSE                                                         
                                                                        
      *       SI ANNEE DIVISIBLE PAR 4 ==> DATE VALIDE                  
              IF ANNEE-DIV-4 THEN                                       
                 SET DATE-VALID TO TRUE                                 
              END-IF                                                    
                                                                        
           END-IF                                                       
                                                                        
           .                                                            
       CHECK-BISEXTILE-EXIT.                                            
           EXIT.

**Homer-ac** · 27/03/2009, 21h44

Pour ceux qui sont sous z/OS, c'est plus simple. Pour vérifier si une date est valide, il sufit d'appeler la routine de service Langage Environment CEEDAYS et de tester le code retour(condition token), cf. fonctions, j'ai donné un exemple d'appel CEEDAYS.
En COBOL3, pour calculer si une date est bissextile, il faut se rappeler que l'on a les fonctions pour ça. Exemple : (avec des réference modifiers pour diminuer les lignes de code et faciliter la lecture, pas comme modèle d'écriture).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
01.
    05  WS-BISSEXT            PIC X VALUE SPACE.
    88  BISSEXTILE                  VALUE '1'. 
    05  WS-SSAAMMJJ           PIC  9(008).
    05  WS-INTEGER-FORM       PIC S9(008) COMP-3.
.................
     MOVE      MYDATE    TO WS-SSAAMMJJ
     MOVE      '0228'    TO WS-SSAAMMJJ(5:4) 
     COMPUTE WS-INTEGER-FORM =
                   FUNCTION INTEGER-OF-DATE(WS-SSAAMMJJ)
     ADD 1 TO WS-INTEGER-FORM
     COMPUTE WS-SSAAMMJJ   =
                   FUNCTION DATE-OF-INTEGER(WS-INTEGER-FORM)
     IF WS-SSAAMMJJ(5:2)  = '02' THEN SET BISSEXTILE TO TRUE    END-IF
.................

On convertit la date au 28 février en nombre de jours écoulés depuis une date pivot + 1 (c'est dans les normes ISO 89,2001/2002). Puis on convertit dans l'autre sens pour voir si on a changé de mois. Donc aucun risque d'erreur si bien entendu on à testé la validité du siècle/année avant. (> 1600 < 2600 -On a de la marge !).

estUneDate [Sources]

Contribuez

Partager

Partager