NUMÉRO DE SEMAINE

Signaler
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Messages postés
56
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
15 février 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/50539-numero-de-semaine

Messages postés
56
Date d'inscription
lundi 26 novembre 2007
Statut
Membre
Dernière intervention
15 février 2013
1
Hello. Old topic, mais solution qui fonctionne = Commentaire de Renfield le 09/09/2009 10:58:27

avec la petite modif suivante :
"vdInput + 7" modifié en "vdInput.AddDays(7)"

soit :
Public Function GetISOWeek(ByVal vdInput As Date) As Long
GetISOWeek = DatePart("ww", vdInput, vbMonday, vbFirstFourDays) If GetISOWeek >52 And DatePart("ww", vdInput.AddDays(7), vbMonday, vbFirstFourDays) 2 Then
GetISOWeek = 1
End If
End Function
Messages postés
1221
Date d'inscription
jeudi 23 août 2001
Statut
Membre
Dernière intervention
9 septembre 2018

Numérotation ISO des semaines
http://fr.wikipedia.org/wiki/Num%C3%A9rotation_ISO_des_semaines
Il faut parfois faire un traitement en plus selon si l'on souhaite ou pas avoir une semaine n°53 et pas de semaine n°1 (cela peut arriver, par exemple au début de l'année 2009 avec la fonction DotNet que j'ai indiquée)
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
idem que la solution de Jack... strictement.

fauda m'expliquer la necessité de faire:
DateSerial(Year(Date), Month(Date), Day(Date))

pourquoi ne pas laisser Date ??
Messages postés
1174
Date d'inscription
vendredi 8 avril 2005
Statut
Membre
Dernière intervention
2 avril 2009

Salut à tous
Moi j'utilise ça , mais je n'ai jamais comparé avec des dates anciennes ...

NumSemaine = DatePart("ww", DateSerial(Year(Date), Month(Date), Day(Date)), vbMonday, vbFirstFourDays)

A voir ...
Afficher les 24 commentaires