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
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
Il veut savoir le premier jour (jj/mm/aaaa) de la semaine n°x de l'année aaaa
Merci Hpj c'est exactement ca
Y-at-il un moyen ?
Il n'y a rien de compliqué, la prochaine fois tu le coderas toi-mêmeJe 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.
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
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
Chez moi ce code fonctionne correctement...
PremierJourSemaine(33, 2004) -> 09/08/2004
PremierJourSemaine(26, 2005) -> 27/06/2005
Ah oui... dsl mais j'avais essayé et ca n'a pas marché.
Merci beaucoup pour ton aide
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager