Calcul du nombre de jours par mois entre deux dates

Bonjour,

Je suis à la recherche d'une formule me permettant de calculer le nombre de jours par mois entre deux dates.

Je m'explique : sur une période du 28/12/09 au 5/02/10 je voudrais avoir
- 4 jours pour décembre
- 31 jours pour janvier
- 5 jours pour février

de façon à mettre à jour une table où sont les mois les années pour calculer un salaire en fonction du nombre de jours travailler par mois.

Merci

Bonjour,

tu peux adapter cette fonction test en remplaçant les debug.print par des ajouts dans ta table en utilisant DAO.

Code:

---

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

---

PS: si tu veux le nombre de jours travaillés entre 2 dates tu peux remplacer les datediff par cette fonction.

A+

:salut:

Et pour compléter l'information sur la gestion des dates et des heures, lire l'excellent tuto de Maxence Hubiche : Les fonctions dates et heures sous vba

Bonne continuation