Le code de la fonction

 
Explications
La fonction retourne Vrai si la date passée en argument correspond à un jour ouvré non chômé.
Cette fonction admet un deuxième paramètre qui permet de définir si le jour de la Pentecôte est chômé (Vrai par défaut) ou non.

La ligne de code ‘If Weekday(…)’ filtre les jours de semaine pour ne conserver que les jours ouvrés (du lundi au vendredi). On utilise ensuite la fonction EstJourFerie(…) qui retourne Vrai s’il s’agit d’un jour férié.

Vérification des résultats
La fonction suivante compte les jours ouvrés non chômés pour différentes années puis compare le résultat avec la valeur attendue (données issues de ce site).

Remarque : Le lundi de Pentecôte est considéré comme chômé ici.

@+

Philippe

La fonction VBA
Nécessite la fonction DateJourSuivant()

Pour atteindre rapidement le dernier jour du mois précédent, on soustrait à la date de référence son jour du mois. Par exemple le 15 août – 15 donnera le 31 juillet.
On recherche ensuite le jour de semaine souhaité qui suit le dernier jour du mois précédent grâce à notre fonction DateJourSuivant().

Tester la fonction
Affiche les résultats dans la fenêtre ‘Exécution’ de l’éditeur VB.

 
@+ pour la suite des épisodes ‘Weekday’.

Philippe

 
Elle retourne Vrai si la date est un samedi ou un dimanche sinon elle renvoie Faux par défaut.

Principe
On impose à ‘Weekday()’ que le 1er jour de semaine est le lundi (constante ‘vbMonday’) et non le dimanche par défaut. Ainsi, le 6ème et le 7ème jour sont le samedi et le dimanche.

Exemples
Dans la fenêtre Exécution du VBE.

@+

Philippe

• DateJourSemaineEnCours() renvoie toujours la date du mercredi de la semaine quelque soit le jour de la date de référence
• DateJourMemeOuPrecedent() renvoie la date du mercredi qui précède la date de référence ou la date de référence elle-même s’il s’agit d’un mercredi
• DateJourPrecedent() renvoie la date du mercredi qui précède la date de référence
• DateJourMemeOuSuivant() renvoie la date du mercredi qui suit la date de référence ou la date de référence elle-même s’il s’agit d’un mercredi
• DateJourSuivant() renvoie la date du mercredi qui suit la date de référence

Remarque
Les fonctions décrites peuvent provoquer une erreur (dépassement de capacité – Erreur n°6) :

• si on passe une date proche du 1er janvier de l’an 100 aux fonctions ayant un balayage arrière
• si on passe une date proche du 31 décembre 9999 aux fonctions ayant un balayage avant

En effet, on peut dépasser dans ces cas, la plage des dates autorisées par Access. Pour ne pas lever cette erreur, vous pouvez introduire un gestionnaire d’erreur dans les fonctions.

@+

Philippe

Les matrices
On souhaite donc passer de la matrice ‘Weekday’ à la matrice ‘Jour de la semaine courante’. Si le premier jour de semaine est un lundi (qui peut être le dimanche comme aux U.S.A.), la matrice finale est :

 
On remarque que les valeurs sont symétriquement opposées par rapport à la diagonale. Pour pouvoir gérer tous les cas quelque soit le premier jour de semaine, le plus simple est de se servir de ce premier jour de semaine comme pivot.

La fonction VBA

 
La fonction admet trois paramètres : La date de référence et le jour de semaine recherché. Le troisième paramètre est optionnel (PremierJourDeSemaine) et contient sous forme de constante le nom du 1er jour de semaine. La valeur par défaut de ce paramètre est lundi.

Tester la fonction
La fonction suivante teste les 49 x 7 possibilités des matrices et affiche les résultats dans la fenêtre ‘Exécution’ de l’éditeur VB.

 
Exemples
A coller dans la fenêtre ‘Exécution’ du VBE.

 
@+ pour la suite des épisodes ‘Weekday’.

Philippe

Les matrices
On souhaite donc passer de la matrice ‘Weekday’ à la matrice ‘Jour courant ou précédent’

 
On remarque que toutes les valeurs de la matrice finale sont les opposés + 1 de la matrice ‘Weekday’. Par exemple, si la date de référence est un lundi, le mardi sera 1 – 7 = -6, le dimanche sera 1 – 2 = -1 et pour les valeurs de la diagonale, la formule est 1 – 1 = 0.

La fonction VBA

 
Tester la fonction
La fonction suivante teste les 49 possibilités de la matrice et affiche les résultats dans la fenêtre ‘Exécution’ de l’éditeur VB.

 
@+ pour la suite des épisodes ‘Weekday’.

Philippe

Les matrices
On souhaite donc passer de la matrice ‘Weekday’ à la matrice ‘Jour précédent’

 
On remarque que les lignes de la matrice ‘Jour précédent’ correspondent aux lignes de la matrice ‘Weekday’ avec un décalage de 1 jour.
Par exemple, la ligne du lundi de ‘Jour précédent’ est identique en valeur absolue à celle du dimanche de ‘Weekday’, celle du mardi est liée à lundi, etc…

La solution
Il faut donc retrancher un jour à la date de référence avant de la passer à la fonction Weekday() : Weekday(DateRef - 1, Jour)
 
La fonction VBA

 
Tester la fonction
La fonction suivante teste les 49 possibilités de la matrice et affiche les résultats dans la fenêtre ‘Exécution’ de l’éditeur VB.

 
@+ pour la suite des épisodes ‘Weekday’.

Philippe

Les matrices
On souhaite donc passer de la matrice ‘Weekday’ à la matrice ‘Jour courant ou suivant’

 
On remarque que toutes les valeurs de la diagonale de la matrice finale sont égales à zéro alors qu’elles étaient égales à 7 dans le premier billet. La matrice pivot reste donc la même sauf que le résultat de cette diagonale est égal à 7 (8 – 1) au lieu de zéro…
Il faut donc réaliser une opération supplémentaire qui transformera la valeur 7 en zéro.

La solution
Il existe plusieurs solutions mais j’ai choisi d’utiliser l’opérateur modulo (MOD). Cet opérateur retourne le reste de la division de deux nombres. Exemples : 5 MOD 4 = 1 et 3 MOD 4 = 3.
Dans notre cas, (8 – 1) MOD 7 = 0 ce qui correspond bien à la valeur attendue dans la diagonale sans modifier les autres valeurs puisqu’elles sont toutes inférieures à 7.

La fonction VBA

 
Tester la fonction
La fonction suivante teste les 49 possibilités de la matrice et affiche les résultats dans la fenêtre ‘Exécution’ de l’éditeur VB.

 
@+ pour la suite des épisodes ‘Weekday’.

Philippe

• Une expression qui représente une date. Idéalement, passer une variable de type Date.
• Une constante numérique qui représente le premier jour de la semaine

Si un NULL est passé comme date, Weekday renvoie NULL.

Le deuxième argument accepte les constantes nommées suivantes de l’énumération VbDayOfWeek :

• vbUseSystem (0)
• vbSunday (1) – Dimanche
• vbMonday (2) – Lundi
• vbTuesday (3) – Mardi
• vbWednesday (4) – Mercredi
• vbThursday (5) – Jeudi
• vbFriday (6) – Vendredi
• vbSaturday (7) – Samedi

Par défaut, le premier jour de la semaine est dimanche pour correspondre au calendrier U.S (non ISO)…
La solution ‘vbUseSystem’ semble intéressante sur le papier mais, en pratique, le paramétrage de Windows n’est pas sous notre contrôle et s’appuyer dessus est parfois risqué. Si je n’avais qu’une devise avec MS Access, elle serait : « Moins j’ai de dépendances externes (références, paramètres windows,…), mieux je me porte ! »

La fonction retourne une valeur numérique entre 1 et 7 qui indique le n° du jour par rapport au premier jour de la semaine. L’aide d’Access est relativement ambiguë à ce niveau car elle laisse croire que, quelque soit la valeur du deuxième argument si le jour de la date est dimanche par exemple la fonction renvoie systématiquement la constante vbSunday soit la valeur 1, ce qui n’est pas le cas.
En effet, la fonction retourne la position du jour par rapport au premier jour de la semaine.
Par exemple, ?Weekday(#2012/10/7#) retourne la valeur 1 qui correspond bien à vbSunday et ?Weekday(#2012/10/7#, vbMonday) retourne 7 car dimanche est le 7ème jour de la semaine lorsqu’elle commence par lundi.

A savoir si vous travaillez avec des millisecondes…
Les fonctions VBA de date dont Weekday() considèrent qu’une date avec une heure supérieure à 23h59mn59s et 499ms a basculé sur le jour suivant.
Par exemple, ?weekday(86399.499/86400) retourne 7 soit samedi 30/12/1899 et ?weekday(86399.500/86400) retourne 1 soit dimanche 31/12/1899 (86400 = nombre de secondes en 24h).
Par commodité, on utilise souvent Int() pour extraire la date d’une variable date/heure. Si des millisecondes sont présentes, elle peut rendre également un résultat différent :

• ?#2012/10/7#+86399.499/86400 ‘-> 07/10/2012 23:59:59
• ?#2012/10/7#+86399.500/86400 ‘-> 08/10/2012
• ?Int(#2012/10/7#+86399.500/86400) ‘-> 07/10/2012
• ?#2012/10/7#+86400/86400 ‘-> 08/10/2012

La matrice des valeurs renvoyées
A ce niveau, il est intéressant d’avoir sous la main la matrice 7×7 des valeurs renvoyées par Weekday() en fonction du jour de la date transmise et du premier jour de la semaine (deuxième argument de la fonction) :

Par exemple, si le jour de la date en argument est lundi et le 1er jour de semaine est mercredi (vbWednesday), la fonction retourne 6.

Notre question du jour sous forme de matrice
On souhaite connaître la date du jour de semaine défini suivant la date passée en argument. Par exemple, le dimanche suivant le dimanche 7 octobre 2012 a pour date le 14 octobre et le lundi suivant est le 8 octobre.

Dasn ce cas, la matrice des valeurs attendues est :

 
Comment passer de la matrice initiale à celle-ci ?
On remarque que la somme des deux matrices pour chaque case donne 8 :

Ces nouvelle matrice servira de pivot pour passer de la matrice ‘Weekday’ à la matrice ‘Jour suivant’. En effet, il suffit de retrancher à 8 la valeur de ‘Weekday’ pour obtenir la valeur ‘Jour suivant’ correspondante.
L’algorithme est DateJourSuivant = DateRef + 8 - Weekday(DateRef, Jour)

Code source de la fonction ‘DateJourSuivant’

La conversion explicite par CInt() du Variant retourné par Weekday() autorise un gain sensible de rapidité.
L’argument ‘Jour’ accepte aussi bien une constante nommée de VbDayOfWeek (SAUF vbUseSystem !) qu’un entier compris entre 1 et 7. Ne pas oublier que la valeur 1 correspond au dimanche (vbSunday) !

Tester la fonction
La fonction suivante teste les 49 possibilités de la matrice et affiche les résultats dans la fenêtre ‘Exécution’ de l’éditeur VB.

 
Voir le récapitulatif des fonctions.

@+ pour la suite des épisodes ‘Weekday’.

Philippe