[VBA-E]DatePart ? Quelle est la règle ?

Code:

---

MsgBox DatePart("ww", "02/08/05", 1)

---

donne 32, en désaccord avec mon calendrier.
Ayant vérifié ce dernier, j'ai constaté qu'il faisait commencer la première semaine de l'année un samedi, et bien sûr, si je fais

Code:

---

1 2 3 4 5

MsgBox DatePart("ww", "02/08/05", 7) 'ou MsgBox DatePart("ww", "02/08/05", 1, vbFirstFourDays) 'ou MsgBox DatePart("ww", "02/08/05", 1, vbFirstFullWeek)

---

le calendrier est de nouveau en accord avec VBA.
La question :
Quelle règle régit la numérotation de la semaine 1 en France ?

Question subsidiaire :
En Europe, la règle diffère-t-elle selon le pays ?

Merci de vos nombreuses réponses :wink:

Salut Ousk !
De mémoire, ça dépend de la position du premier jeudi de l'année. Un post a donné la règle exacte, il-y-a un bon moment.
Je regarde si je te le retrouve.

Regarde ça:
'******************************************************************
' Calcul des dates d'une année par numéro de semaine
'
' Recommandations de l'Organisation Internationale de Standardisation
' Norme ISO 8601

' - Le lundi est considéré comme le premier jour de la semaine.
' - Les semaines d'une même année sont numérotées de 01 à 52
' (parfois 53).
' - La semaine qui porte le numéro 01 est celle qui contient le
' premier jeudi de janvier.
' - Il peut exister une semaine n°53 (années communes finissant
' un jeudi, bissextiles finissant un jeudi ou un vendredi).
'******************************************************************

Merci Megaxel
la syntaxe correcte pour la France semble donc être :

Code:

---

MsgBox DatePart("ww", "02/08/05", vbMonday, vbFirstFourDays)

---

Merci Megaxel.
J'ai un peu tardé à te répondre mais j'ai fait des tests (un tas)
Seul

Code:

---

MsgBox DatePart("ww", "01/11/06", 2, vbFirstFourDays)

---

testé sur les années 2002, 04, 05, 06 et 07 paraît donner un résultat cohérent.

A+

Edit
J'ai relu les règles et effectivement, c'est la seule syntaxe valide, comme tu le dis, Thierry. J'ai donc effacé le code qui ne marche pas pour ne pas embrouiller les ceusses que ça intéresse. Et j'en profite pour répondre à "celui" qui cherche encore le mois en fonction du jour et du numéro de semaine...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

jour = "lundi" NoSemaine = 31 JrSemaine = Array("", "lundi", "mardi", "mercredi", "jeudi", "vendredi", "samedi", "dimanche") For i = 1 To 7 If JrSemaine(i) = LCase(jour) Then Exit For Next LaDate = CDate("01/01") + i 'en ignorant l'année, est valide pour l'année en cours For i = 1 To 52 If DatePart("ww", CDate(LaDate), 2, vbFirstFourDays) = NoSemaine Then Exit For LaDate = CDate(LaDate) + 7 Next MsgBox Format(CDate(LaDate), "mmmm")

---

Merci Megaxel

A+

Merci de voir de ce coté là:
http://officesystemaccess.seneque.net/vba/datepart.htm