Je recherche comment calculer par formule le nombre de semaines (entières) et jours entre deux dates. Par exemple entre le 30 Mai et le 16 Juin, résultat : 2 semaines et 4 jours.
Re : calculer nombre de semaines et jours entre deux dates.
Re,
Avec du VBA c'est clair et on ne se prend pas la tête :
Code:
Function NSem(t1&, t2&)
Dim i&, Ndim&
For i = t1 To t2
If Weekday(i) = 2 Then NSem = NSem + 1
If NSem And Weekday(i) = 1 Then Ndim = Ndim + 1
Next
If Ndim < NSem Then NSem = NSem - 1
End Function
Fichier de Chris401 complété.
Edit 1 : bah il y a plus simple :
Code:
Function NSem(t1&, t2&)
Dim i&
For i = t1 To t2
If Weekday(i) = 2 And i + 6 <= t2 Then NSem = NSem + 1
Next
End Function
Fichier (2).
Edit 2 : évidemment ça peut prendre un peu de temps.
J'ai testé du 01/01/1900 au 31/12/9999, la fonction se calcule en 2,6 secondes chez moi.