URGENT !!! calculer le nb de lundi en semaine PAIRES !
3 réponses
cotiti
ReBonjour,
Je bloque complètement sur ce problème des semaines alternatives. COmment
connaître le nombre exact de lundi de date à date, uniquement sur les
semaines paires ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Voilà, voilà.... Fonction perso à mettre dans un dans un module ordinaire
Function LUNDSEMPAIR(Début, Fin) For i = Début To Fin x = DateSerial(Year(i + (8 - Weekday(i)) Mod 7 - 3), 1, 1) z = ((i - x - 3 + (Weekday(x) + 1) Mod 7)) 7 + 1 If Weekday(i) = 2 And z Mod 2 = 0 Then w = w + 1 Next LUNDSEMPAIR = w End Function
Exemple d'utilisation dans une feuille de calcul : =LUNDSEMPAIR(A1;F1)
PS : la notion de semaine paire ou impaire est comprise comme étant conforme à la norme iso européenne (01/01/2005 --> N° semaine = 53) AV
Voilà, voilà....
Fonction perso à mettre dans un dans un module ordinaire
Function LUNDSEMPAIR(Début, Fin)
For i = Début To Fin
x = DateSerial(Year(i + (8 - Weekday(i)) Mod 7 - 3), 1, 1)
z = ((i - x - 3 + (Weekday(x) + 1) Mod 7)) 7 + 1
If Weekday(i) = 2 And z Mod 2 = 0 Then w = w + 1
Next
LUNDSEMPAIR = w
End Function
Exemple d'utilisation dans une feuille de calcul :
=LUNDSEMPAIR(A1;F1)
PS : la notion de semaine paire ou impaire est comprise comme étant conforme à
la norme iso européenne (01/01/2005 --> N° semaine = 53)
AV
Voilà, voilà.... Fonction perso à mettre dans un dans un module ordinaire
Function LUNDSEMPAIR(Début, Fin) For i = Début To Fin x = DateSerial(Year(i + (8 - Weekday(i)) Mod 7 - 3), 1, 1) z = ((i - x - 3 + (Weekday(x) + 1) Mod 7)) 7 + 1 If Weekday(i) = 2 And z Mod 2 = 0 Then w = w + 1 Next LUNDSEMPAIR = w End Function
Exemple d'utilisation dans une feuille de calcul : =LUNDSEMPAIR(A1;F1)
PS : la notion de semaine paire ou impaire est comprise comme étant conforme à la norme iso européenne (01/01/2005 --> N° semaine = 53) AV
cotiti
C'est vraiment une formule de sauvage !!! Je l'aurai jamais trouvé... Mais ca marche super bien, merci beaucoup.
Une dernière chose quand même, que faut il changer pour compter les lundi impaire ? et les mardi pairs ? J'ai du mal à comprendre la formule...
merci encore, A+
"AV" a écrit dans le message de news: eCj8$
Voilà, voilà.... Fonction perso à mettre dans un dans un module ordinaire
Function LUNDSEMPAIR(Début, Fin) For i = Début To Fin x = DateSerial(Year(i + (8 - Weekday(i)) Mod 7 - 3), 1, 1) z = ((i - x - 3 + (Weekday(x) + 1) Mod 7)) 7 + 1 If Weekday(i) = 2 And z Mod 2 = 0 Then w = w + 1 Next LUNDSEMPAIR = w End Function
Exemple d'utilisation dans une feuille de calcul : =LUNDSEMPAIR(A1;F1)
PS : la notion de semaine paire ou impaire est comprise comme étant conforme à la norme iso européenne (01/01/2005 --> N° semaine = 53) AV
C'est vraiment une formule de sauvage !!! Je l'aurai jamais trouvé...
Mais ca marche super bien, merci beaucoup.
Une dernière chose quand même,
que faut il changer pour compter les lundi impaire ? et les mardi pairs ?
J'ai du mal à comprendre la formule...
merci encore,
A+
"AV" <alainPFFFvallon@wanadoo.fr> a écrit dans le message de news:
eCj8$fyJFHA.1176@TK2MSFTNGP12.phx.gbl...
Voilà, voilà....
Fonction perso à mettre dans un dans un module ordinaire
Function LUNDSEMPAIR(Début, Fin)
For i = Début To Fin
x = DateSerial(Year(i + (8 - Weekday(i)) Mod 7 - 3), 1, 1)
z = ((i - x - 3 + (Weekday(x) + 1) Mod 7)) 7 + 1
If Weekday(i) = 2 And z Mod 2 = 0 Then w = w + 1
Next
LUNDSEMPAIR = w
End Function
Exemple d'utilisation dans une feuille de calcul :
=LUNDSEMPAIR(A1;F1)
PS : la notion de semaine paire ou impaire est comprise comme étant
conforme à
la norme iso européenne (01/01/2005 --> N° semaine = 53)
AV
C'est vraiment une formule de sauvage !!! Je l'aurai jamais trouvé... Mais ca marche super bien, merci beaucoup.
Une dernière chose quand même, que faut il changer pour compter les lundi impaire ? et les mardi pairs ? J'ai du mal à comprendre la formule...
merci encore, A+
"AV" a écrit dans le message de news: eCj8$
Voilà, voilà.... Fonction perso à mettre dans un dans un module ordinaire
Function LUNDSEMPAIR(Début, Fin) For i = Début To Fin x = DateSerial(Year(i + (8 - Weekday(i)) Mod 7 - 3), 1, 1) z = ((i - x - 3 + (Weekday(x) + 1) Mod 7)) 7 + 1 If Weekday(i) = 2 And z Mod 2 = 0 Then w = w + 1 Next LUNDSEMPAIR = w End Function
Exemple d'utilisation dans une feuille de calcul : =LUNDSEMPAIR(A1;F1)
PS : la notion de semaine paire ou impaire est comprise comme étant conforme à la norme iso européenne (01/01/2005 --> N° semaine = 53) AV
AV
que faut il changer pour compter les lundi impaire ?
Les lundis semaines impaires : ...And z Mod 2 <> 0
et les mardi pairs ?
Les mardis semaines paires : ...If Weekday(i) = 3....
AV
que faut il changer pour compter les lundi impaire ?
Les lundis semaines impaires :
...And z Mod 2 <> 0
et les mardi pairs ?
Les mardis semaines paires :
...If Weekday(i) = 3....
