Trouver le prochain jour ouvrable, à partir d'une date, et selon un delta en jours

Soyez le premier à donner votre avis sur cette source.

Snippet vu 21 085 fois - Téléchargée 7 fois

Contenu du snippet

Public Function DateAdd(Interval As String, Number As Double, Date1 As Variant) As Variant
Dim nStep As Integer
Dim nCount As Long
   If StrComp(Interval, "WD", vbTextCompare) Then
       DateAdd = VBA.DateAdd(Interval, Number, Date1)
   Else
       nStep = Sgn(Number)
       If nStep Then
           nCount = Abs(Number)
           DateAdd = Date1 + nStep
           Do While nCount
               If Not IsHoliday(DateAdd) Then
                   nCount = nCount - 1
               End If
               If nCount Then
                   DateAdd = DateAdd + nStep
               End If
           Loop
       Else
           DateAdd = Date1
       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.