Petite fonction qui calcul le nombre de jours ouvrables entre deux dates. Elle compte la journée en cours et la dernière journée. ATTENTION: Ne tiens pas compte des jours fériés!!!
Source / Exemple :
Public Function JoursOuvrables(ByVal DateDébut As Date, ByVal DateFin As Date) As Integer
'Initialisation selon si c'est un jour de semaine (<6) ou de fin de semaine (>=6)
If WeekDay(DateDébut, vbMonday) < 6 Then
JoursOuvrables = 1
Else
JoursOuvrables = 0
End If
Do Until DateDébut > DateFin
If WeekDay(DateDébut, vbMonday) < 6 Then
JoursOuvrables = JoursOuvrables + 1
End If
DateDébut = DateDébut + 1
Loop
End Function
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.