RENVOI DU NUMÉRO DE SEMAINE (BOGUE DU 29 DÉCEMBRE 2003)
106
Messages postés
39
Date d'inscription
jeudi 17 janvier 2002
Statut
Membre
Dernière intervention
14 janvier 2008
-
4 févr. 2004 à 07:58
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 20 août 2007 à 04:18
mortalino Messages postés 6786 Date d'inscription vendredi 16 décembre 2005 Statut Membre Dernière intervention 21 décembre 2011 - 20 août 2007 à 04:18
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/20083-renvoi-du-numero-de-semaine-bogue-du-29-decembre-2003
https://codes-sources.commentcamarche.net/source/20083-renvoi-du-numero-de-semaine-bogue-du-29-decembre-2003
20 août 2007 à 04:18
Y'a aussi une soluce (enfin, 2) ici ^^
@++
6 août 2007 à 13:17
18 avril 2006 à 09:33
Dim JeudiSemaine As Date
Dim NumSemJeudi As Integer
Dim CetteDate As Date
CetteDate = "31/12/2007"
JeudiSemaine = CetteDate - Weekday(CetteDate, vbMonday) + vbThursday - 1
NumSemJeudi = CInt(Format(JeudiSemaine, "ww", vbMonday, vbFirstFourDays))
MsgBox NumSemJeudi & "-" & Weekday(CetteDate, vbMonday)
CetteDate = "29/12/2003"
JeudiSemaine = CetteDate - Weekday(CetteDate, vbMonday) + vbThursday - 1
NumSemJeudi = CInt(Format(JeudiSemaine, "ww", vbMonday, vbFirstFourDays))
MsgBox NumSemJeudi & "-" & Weekday(CetteDate, vbMonday)
J'obtiens toujours semaine 1 partout !!
Certainement un patch quelque part...
17 avril 2006 à 12:06
12 déc. 2005 à 10:02
Merci pour cette petite fonction 106, qui fonctionne parfaitement au moins jusqu'en 2015 (je me suis arreté là dans mes tests). Pour ceux qui auraient la flemme d'utiliser cette fonction car ils auraient des dates supérieurs à 2003, sachez que la fonction Format bogue pour le 29/12/2003 mais également pour le 31/12/2007, qu'elle trouve comme seul et unique jour de la semaine 53 (au lieu de 01).
Merci encore.
JC
21 mai 2004 à 16:39
21 mai 2004 à 16:37
;-)
21 mai 2004 à 15:20
MsgBox Format("29/12/2003", "Long Date")
Ce qui nous donne au final:
Lundi 29 Décembre 2003
23 févr. 2004 à 10:03
Ahhh, VB quand tu nous tiens !
23 févr. 2004 à 08:55
Ahhh, VB quand tu nous tiens !
22 févr. 2004 à 14:23
Merci
4 févr. 2004 à 07:58
'Voila ma solution
'en utilisant weekday qui donne le jour de la semaine d'une date
' Ex : 29/12/2003 => Lundi
Public Function NumSemaine(CetteDate As Date)
Dim JeudiSemaine As Date
Dim NumSemJeudi As Integer
JeudiSemaine = CetteDate - Weekday(CetteDate, vbMonday) + vbThursday - 1
NumSemJeudi = CInt(Format(JeudiSemaine, "ww", vbMonday, vbFirstFourDays))
NumSemaine = NumSemJeudi
End Function