Obtenir des dates en fonction du n° de la semaine

**coeur74** · 09/02/2005, 11h12

Bonjour,
j'utilise la fonction datepart pour avoir le n° de la semaine. Maintenant j'aimerai savoir si on peut récuperer les dates de cette semaine.

Merci d'avance pour toute réponse

**HPJ** · 09/02/2005, 11h42

Il veut savoir le premier jour (jj/mm/aaaa) de la semaine n°x de l'année aaaa

**coeur74** · 09/02/2005, 13h34

Merci Hpj c'est exactement ca
Y-at-il un moyen ?

**HPJ** · 09/02/2005, 14h42

Il n'y a rien de compliqué, la prochaine fois tu le coderas toi-même

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Public Function PremierJourSemaine(ByVal numSemaine As Byte, ByVal annee As Integer) As Date
 
    Dim d As Date
    Dim numS As Integer
 
    ' premier jour de l'année
    d = DateSerial(annee, 1, 1)
 
    ' numéro de la semaine du 1er janvier
    numS = DatePart("ww", d, vbMonday, vbFirstFourDays)
 
    ' si le 1er janvier fait partie de la dernière semaine de l'année précédente
    ' alors passe à la semaine suivante (la première de la nouvelle année)
    If numS <> 1 Then d = DateAdd("d", 7, d)
 
    ' calcule le premier jour de la première semaine de l'année
    d = DateAdd("d", 1 - Weekday(d, vbMonday), d)
 
    ' ajoute (numSemaine-1) semaines
    PremierJourSemaine = DateAdd("ww", numSemaine - 1, d)
 
End Function

Je considére que le premier jour d'une semaine est un lundi et que la première semaine d'une année est celle qui possède au moins 4 jours dans la nouvelle année.

**coeur74** · 10/02/2005, 08h32

Merci pour le code je vais me baser la dessus.
Il ne marche que pour cette année, si tu essaies avec l'année 2004, il est completement paumé. Et je ca ne marche que pour la premiere semaine.

Merci