Jour ouvré

Cette fonction permet de savoir si une date correspond à un jour ouvré ou non.
On considèrera dans cette fonction qu'un jour ouvré un un jour qui n'est ni un samedi, ni un dimanche et ni un jour férié.

Pour utiliser cette fonction, vous devez également disposer des fonctions "fPaques", et "JourFérié" décrite dans les rubriques précédentes.

L'argument "dt" correspond à la date que l'on souhaite vérifier.

Public Function OpenDay(dt As Date) As Boolean

If WeekDay(dt) <> 1 _
    And WeekDay(dt) <> 7 _
    And JourFérié(dt) = False Then
        OpenDay = True
Else
        OpenDay = False
End If

End Function

Cette fonction retournera True si la date est un jour ouvré et non dans le cas contraire.

Auteur : Jessy SEMPERE