RENVOI DU NUMÉRO DE SEMAINE (BOGUE DU 29 DÉCEMBRE 2003)

Signaler
Messages postés
39
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
14 janvier 2008
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/20083-renvoi-du-numero-de-semaine-bogue-du-29-decembre-2003

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
http://www.codyx.org/snippet_calculer-numero-semaine-date_152.aspx


Y'a aussi une soluce (enfin, 2) ici ^^

@++
Messages postés
3
Date d'inscription
lundi 23 juillet 2007
Statut
Membre
Dernière intervention
1 août 2007

svp, quelle est la bonne solution retenue?
Messages postés
44
Date d'inscription
jeudi 27 juin 2002
Statut
Membre
Dernière intervention
20 novembre 2008

Je suppose que la bogue a été résolue car avec ce code :

Dim JeudiSemaine As Date
Dim NumSemJeudi As Integer
Dim CetteDate As Date
CetteDate = "31/12/2007"
JeudiSemaine = CetteDate - Weekday(CetteDate, vbMonday) + vbThursday - 1
NumSemJeudi = CInt(Format(JeudiSemaine, "ww", vbMonday, vbFirstFourDays))
MsgBox NumSemJeudi & "-" & Weekday(CetteDate, vbMonday)

CetteDate = "29/12/2003"
JeudiSemaine = CetteDate - Weekday(CetteDate, vbMonday) + vbThursday - 1
NumSemJeudi = CInt(Format(JeudiSemaine, "ww", vbMonday, vbFirstFourDays))
MsgBox NumSemJeudi & "-" & Weekday(CetteDate, vbMonday)


J'obtiens toujours semaine 1 partout !!
Certainement un patch quelque part...
Messages postés
29
Date d'inscription
jeudi 20 janvier 2005
Statut
Membre
Dernière intervention
30 novembre 2006

Merci beaucoup pour ce source !
Afficher les 12 commentaires