ADELIA |
VADELIA |
SADELIA |
WADELIA |
MADELIA |
(I/B) |
(I/B) |
(B) |
(I/B) |
(I) |
Description
Permet de calculer une date sur 6 positions en ajoutant un nombre de jours à une date de début.
Particularité : le siècle est calculé à l'aide d'une année limite. La règle de calcul est la suivante :
SI Année date >= Année limite
==> SIECLE = 19
SINON
==> SIECLE = 20
La valeur par défaut de cette année limite est 50. Elle peut être changée :
- Sur AS/400 (programmes Adélia iSeries RPG ou partie serveur AS/400) : en modifiant la Data Area HA£LYC. La Data Area prise en compte est la première trouvée dans la liste des bibliothèques. A la livraison du produit, elle est stockée dans les bibliothèques HA£XRUN et HA2SLIB.
- Sur Windows (programme Visual Adélia client Windows ou parties serveur Windows, programmes ADELIA générés en C) : en l'indiquant dans l'onglet "Affichage" du configurateur d'interface (lancer confintw.exe).
- En Java (Client Adélia Cloud, client Adélia Web, serveur Java, client Java) : en modifiant la valeur de la clef DATE6_YEAR_LIMIT dans le fichier CfgConfiguration.properties.
Un contrôle de la date passée en paramètre est effectué. Si elle est invalide, la fonction n'est pas exécutée et la zone résultat est remise à zéro.
Syntaxe
Résultat = &CALCUL_DATE6(Format de la date;Date départ;Nombre de jours)
Paramètres
|
Définition |
Contenu |
Contrôles |
Résultat |
Variable numérique sur 6 positions. |
Date calculée. |
|
Format de la date |
Variable ou constante alphanumérique sur 3 positions. |
Format de la date passée en paramètre. Valeurs possibles : DMY Jour/Mois/Année DYM Jour/Année/Mois MDY Mois/Jour/Année MYD Mois/Année/Jour YMD Année/Mois/Jour YDM Année/Jour/Mois |
Paramètre obligatoire. |
Date départ |
Variable numérique sur 6 positions. |
Date de départ à laquelle est ajouté le nombre de jours passé en paramètre. |
Paramètre obligatoire. |
Nombre de jours |
Variable ou constante numérique sur 7 positions. |
Nombre de jours à ajouter à la date de départ. |
Paramètre obligatoire. |
Remarque : si le paramètre Nombre de jours est négatif, le nombre de jours indiqué est retranché de la date de départ.
Par exemple
DATE_COMMANDE = 001231
NOMBRE = 20
DATE_ECHEANCE = &CALCUL_DATE6('YMD';DATE_COMMANDE;NOMBRE)
*
* DATE_ECHEANCE est égal à : 010120.
*
FORMAT = 'YMD'
DATE_FINCONTRAT = 010106
NOMBRE = -366
*
DATE_ORIGINE = &CALCUL_DATE6(FORMAT;DATE_FINCONTRAT;NOMBRE)
*
* DATE_ORIGINE est égal à : 000106.
