Compléments pour Microsoft Access

Description

Cette fonction permet de calculer le nombre de jours ouvrés entre 2 dates.

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_Numérique = NbOpenDay (dtDeb, dtFin)

La synthaxe de la fonction NbOpenDay comprend les éléments suivants :

Eléments	Description
dtDeb	Expression de type date correspondant à la date début de la plage de calcul.
dtFin	Expression de type date correspondant à la date de fin de la plage de calcul.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Public Function NbOpenDay(dtDeb As Date, dtFin As Date) As Integer
' Calculer le nombre de jours ouvrables entre deux dates
' Utilise la fonction JourFérié(dtDate As Date)

Dim dblDateDeb As Double
Dim dblDateFin As Double
Dim DateCourante As Date
Dim resultat As Integer

If IsNull(dtDeb) Or IsNull(dtFin) _
    Or IsEmpty(dtDeb) Or IsEmpty(dtFin) Then
        NbOpenDay = 0
        Exit Function
ElseIf Not IsDate(dtDeb) Or Not IsDate(dtFin) Then
        NbOpenDay = 0
        Exit Function
ElseIf dtDeb > dtFin Then
        Dim dhTemp As Date
        dhTemp = dtDeb
        dtDeb = dtFin
        dtFin = dhTemp
End If

dblDateDeb = CDbl(dtDeb)
dblDateFin = CDbl(dtFin)

Do Until dblDateDeb > dblDateFin
    DateCourante = CDate(dblDateDeb)
    If WeekDay(DateCourante) <> 1 And _
        WeekDay(DateCourante) <> 7 And _
        JourFérié(DateCourante) = False Then
            resultat = resultat + 1
    End If
    dblDateDeb = dblDateDeb + 1
Loop

NbOpenDay = resultat

End Function

Nombre jours ouvrés (Dates & Heures)