VB6 - Numéro de semaine dans l'année

Bonjour,

J'ai un léger problème avec une partie de code qui me donne le numéro de la semaine de l'année.

Sachant que la semaine débute le dimanche et se termine le samedi.

Code:

---

1 2 3 4 5 6

'lblWeek_number Dim iNumberOfTheWeek As Integer   iNumberOfTheWeek = DatePart("ww", Now()) lblWeek_number.Caption = iNumberOfTheWeek

---

Normallement, en date d'aujourd'hui le 30 Décembre 2018, nous some la semaine 1 de l'année 2019. Parcontre, avec le code ci-haut, j'obtiens la semaine 53.

comment puis-je régler le problème sans utiliser:

Code:

---

If iNumberOfTheWeek = "53" Then lblWeek_number = "1"

---

Merci de votre aide.

Salut wilder1626, bienvenue sur DVP

Il te faut intéresser au 4éme paramètre de la fonction DatePart

vbUseSystem 0 Utilise la valeur API NLS.
vbFirstJan1 1 Commence par la semaine incluant le 1er janvier (valeur par défaut).
vbFirstFourDays 2 Commence par la semaine comportant au moins quatre jours dans la nouvelle année.
vbFirstFullWeek 3 Commence par la première semaine complète de la nouvelle année.

Cela devrait être donc: iNumberOfTheWeek = DatePart("ww", Now(),,vbFirstFourDays).

Motif de l'édit:
N'ayant pas VB6 sous la main, je me demande si il ne faut pas indiquer le 3éme paramètre, comme en vbScript, donc si cela bug iNumberOfTheWeek = DatePart("ww", Now(),vbMonday,vbFirstFourDays) devrait passer sans erreur.

Merci beaucoup pour ton aide ainsi que l'explication.
Je confirme que les 2 façons fonctionnes bien.