Compléments pour Microsoft Access

Description

Cette fonction permet de déterminer si une date est un jour ouvré ou non.

On considère dans cette fonction qu'un jour ouvré est un jour qui n'est ni un samedi, ni un dimanche et ni un jour férié.

Cette fonction fait appel à 2 autres fonctions qui sont :

Synthaxe

Expression_Boolean = OpenDay (dt)

La synthaxe de la fonction OpenDay comprend l'élément suivant :

Eléments	Description
dt	Expression de type date correspondant à la date que l'on souhaite vérifier.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

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