1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Function NbreJoursParMois(date1 As Date, date2 As Date) As Integer
Dim nbJours As Integer
Dim DateD As Date, DateF As Date
DateD = date1
DateF = DateSerial(Year(DateD), Month(DateD) + 1, 1)
nbJours = DateDiff("d", DateD, DateF)
Do While (DateD <= date2)
Debug.Print Format(DateD, "mmmm yyyy")
Debug.Print nbJours
DateD = DateF
If (DateSerial(Year(DateD), Month(DateD) + 1, 1) <= date2) Then
DateF = DateSerial(Year(DateD), Month(DateD) + 1, 1)
Else
DateF = date2 + 1
End If
nbJours = DateDiff("d", DateD, DateF)
Loop
End Function |
Partager