ADELIA |
VADELIA |
SADELIA |
WADELIA |
EADELIA |
(I/B) |
(I/B) |
(B) |
(I/B) |
(B) |
Description
Permet de contrôler la validité de la date passée en paramètre.
Syntaxe
Résultat = &CONTROLE_DATE8(Format de la date;Date)
Paramètres
Définition |
Contenu |
Contrôles |
|
Résultat |
Variable alphanumérique sur 1 position. |
Valeurs possibles : 0 Date non valide 1 Date valide |
|
Format de la date |
Constante ou variable alphanumérique sur 3 positions. |
Format de la date passée en paramètre. Valeurs possibles : DMY Jour/Mois/Année |
Paramètre obligatoire. |
Date |
Constante ou variable numérique sur 8 positions. |
Date à contrôler. |
Paramètre obligatoire. |
Par exemple
FORMAT = 'YMD'
ZDATE_CDE = 20020229
CTLE_DATE = &CONTROLE_DATE8(FORMAT;ZDATE_CDE)
PREPARER_MSG 0002 ZDATE_CDE
SI CTLE_DATE = '0'
ANOMALIE
FIN
*
* CTLE_DATE est égal à : '0' (date invalide : 29 février 2002).
FORMAT = 'DMY'
ZDATE_CDE = 06052002
CTLE_DATE = &CONTROLE_DATE8(FORMAT;ZDATE_CDE)
PREPARER_MSG 0002 ZDATE_CDE
SI CTLE_DATE = '0'
ANOMALIE
FIN
*
* CTLE_DATE est égal à : 1 (date valide : 6 mai 2002).
