Discussion :

[wilder1626]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de votre aide.

[ProgElecT]

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.

[wilder1626]

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