Calcul nombre de jours ouvrés entre deux dates
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
- Calcul nombre de jours ouvrés entre deux dates
- Ephéméride calcul entre deux dates ✓ - Forum Delphi / Pascal
- Calculer le nombre de jour entre deux dates ✓ - Forum PHP
- Éphéméride entre deux dates - Forum Delphi / Pascal
- Ephemeride calcul entre deux dates - Forum Visual Basic 6
- Ephemeride entre deux dates - Forum Visual Basic 6
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.