Home
Home

---Soumis par Dev Ashish---

Calcul du nombre de jours ouvrables.

(Q)    Comment calculer le nombre total de jours ouvrables entre deux dates?

(A)    Utiliser la fonction suivante.

'*********** Code Start **************
Function Work_Days (BegDate As Variant, EndDate As Variant) As Integer
' Noter que cette fonction ne tient pas compte des jours fériés.
Dim WholeWeeks As Variant
Dim DateCnt As Variant
Dim EndDays As Integer

	BegDate = DateValue(BegDate)

	EndDate = DateValue(EndDate)
      	WholeWeeks = DateDiff("w", BegDate, EndDate)
      	DateCnt = DateAdd("ww", WholeWeeks, BegDate)
      	EndDays = 0
      	Do While DateCnt < EndDate
        	If Format(DateCnt, "ddd") <> "Sun" And _
                          Format(DateCnt, "ddd") <> "Sat" Then
            		EndDays = EndDays + 1
         	End If
         	DateCnt = DateAdd("d", 1, DateCnt)
      	Loop
      	Work_Days = WholeWeeks * 5 + EndDays
End Function
'*********** Code End **************