Calcul nombre de jours ouvrés entre deux dates

Soyez le premier à donner votre avis sur cette source.

Snippet vu 29 153 fois - Téléchargée 7 fois

Contenu du snippet

Public Function DateDiff(Interval As String, Date1, Date2, Optional FirstDayOfWeek As VbDayOfWeek = vbSunday, Optional FirstWeekOfYear As VbFirstWeekOfYear = vbFirstJan1) As Variant
Dim nStep As Integer
Dim dLoop As Date
   If StrComp(Interval, "WD", vbTextCompare) Then
       DateDiff = VBA.DateDiff(Interval, Date1, Date2, FirstDayOfWeek, FirstWeekOfYear)
   Else
       nStep = Sgn(Date2 - Date1)
       If nStep Then
           For dLoop = Date1 + nStep To Date2 Step nStep
               If Not IsHoliday(dLoop) Then
                   DateDiff = DateDiff + nStep
               End If
           Next dLoop
       Else
           DateDiff = 0
       End If
   End If
End Function 

Compatibilité : VB6, VBA

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.