&JOUR_SEMAINE6

ADELIA	VADELIA	SADELIA	WADELIA	EADELIA
(I/B)	(I/B)	(B)	(I/B)	(B)

Permet de calculer le numéro de jour dans la semaine d'une date donnée dans un format sur 6 positions.

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.

Résultat = &JOUR_SEMAINE6(Format de la date;Date)

	Définition	Contenu	Contrôles
Résultat	Variable numérique sur 1 position.	Numéro du jour de la semaine correspondant à la date passée en paramètre. Valeurs possibles : 1 Dimanche 2 Lundi 3 Mardi 4 Mercredi 5 Jeudi 6 Vendredi 7 Samedi
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	Variable ou constante numérique sur 6 positions.	Date pour laquelle le numéro du jour de la semaine doit être calculé.	Paramètre obligatoire.

DATE_ECHEANCE = 311200
JOUR = &JOUR_SEMAINE6('DMY';DATE_ECHEANCE)
*

* JOUR est égal à : 5 (jeudi).

SI JOUR = 1

* si Dimanche, on ajoute 1

DATE_ECHEANCE = &CALCUL_DATE6('DMY';DATE_ECHEANCE;1)

FIN