calculer nombre de semaines et jours entre deux dates.

[libellule85]

Bonjour le forum,

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.

D'avance merci pour votre aide.

 

[pierrejean]

Re : calculer nombre de semaines et jours entre deux dates.

Bonjour libellule

Il y a surement mieux (dates en A1 (debut) et A2(fin)

=ENT((A2-A1+1)/7) & " Semaine(s) " & (A2-A1+1)-ENT((A2-A1+1)/7) *7 & " Jours"

 

[excfl]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir le forum,

=ENT((B1-A1)/7)&" semaine(s)"&" et "&(B1-A1)-(ENT((B1-A1)/7)*7)+1&" jour(s)"

 

[libellule85]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir Pierrejean, excfl,

Un grand merci à vous deux pour vos réponses, cela fonctionne impeccable.
Bonne soirée

 

[Victor21]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir à tous.

Un peu en retard...

=ENT((A2-A1+1)/7) & " semaine(s) " &SI(MOD((A2-A1+1);7)>0;MOD((A2-A1+1);7) & " jour(s) ";"")

 

[job75]

Re : calculer nombre de semaines et jours entre deux dates.

Bonjour les amis,

libellule85 veut le nombre de semaines entières, commençant le lundi.

A priori il faut donc compter le nombre de lundis et aussi de dimanches entre les 2 dates.

C'est compliqué et je n'ai pas le temps de m'en occuper ce soir.

A+

 

[libellule85]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir Victor21, Job75,

@Victor21 : merci beaucoup pour ta réponse
@Job75 : effectivement la semaine va du lundi au dimanche

 

[Modeste geedee]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsour®

Je recherche comment calculer par formule le nombre de semaines (entières) et jours entre deux dates.

selon que l'on considère la date de fin comprise ou non dans dans l'intervalle (i-e datefin à 00:00 ou datefin à 23:59)

- dans l'intervalle :
=ENT((Datefin+1-Datedeb-JOURSEM(Datedeb;3))/7)&" sem "&MOD(Datefin+1-Datedeb;7)&" jr"
- hors intervalle :
=ENT((Datefin-Datedeb-JOURSEM(Datedeb;3))/7)&" sem "&MOD(Datefin-Datedeb;7)&" jr"

 

[libellule85]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir Modeste geedee,

Je te remercie beaucoup pour ta réponse.

 

[Chris401]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir à tous

J'ai mis dans le fichier joint les différentes propositions

Cordialement
Chris

Edit : nouveau fichier avec formule de chris24 inclue

 

[Chris24]

Re : calculer nombre de semaines et jours entre deux dates.

Bonsoir

Et une de plus


ENT((DteFin+1-DteDeb-(SOMME(ENT((DteFin+1-JOURSEM(DteFin+1-{0;6})-DteDeb+8)/7))))/5)&" semaine(s) "&MOD(DteFin+1-DteDeb;7)&" jour(s)"


Bonne soirée

 

[libellule85]

Re : calculer nombre de semaines et jours entre deux dates.

Bonjour Chris401, Chris24,

Je vous remercie pour vos réponses.
Bonne journée

 

[job75]

Re : calculer nombre de semaines et jours entre deux dates.

Bonjour le forum,

Entre le lundi 30 mai et le dimanche 12 juin on doit trouver 2 semaine(s) et 0 jour(s).

La formule de Chris24 donne 1 semaine(s) et 7 jour(s), encore un petit effort.

Bonne journée.

 

[Chris24]

Re : calculer nombre de semaines et jours entre deux dates.

Bonjour à tous

Curieux car sur mes Excel(s) 2003 et 2010 le résultat est bien de 2 semaines et 0 jours


Bonne journée

 

[job75]

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 :

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 :

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.

A+