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

Commenter

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

S'inscrire maintenant

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.

Du même auteur (malalam)