NUMÉRO DE LA SEMAINE : SANS LES BUGS DE LA SEMAINE 53 ET DU 29/12 (TESTÉ ET VÉRI
crenaud76
Messages postés
4172
Date d'inscription
mercredi 30 juillet 2003
Statut
Membre
Dernière intervention
9 juin 2006
-
3 août 2004 à 10:36
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 22 mars 2009 à 23:17
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 22 mars 2009 à 23:17
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/25113-numero-de-la-semaine-sans-les-bugs-de-la-semaine-53-et-du-29-12-teste-et-verifie
https://codes-sources.commentcamarche.net/source/25113-numero-de-la-semaine-sans-les-bugs-de-la-semaine-53-et-du-29-12-teste-et-verifie
22 mars 2009 à 23:17
function
...
end function
end sub
ca peut pas etre imbriqué...
22 mars 2009 à 15:01
je cherche également à obtenir un numéro de semaine dans une suite de dates en colonne.
Je programme ci-dessous que j'ai trouvé à plusieurs reprises dans des forums semble est correct.
Function NOSEM(D As Date) As Long
D = Int(D)
NOSEM = DateSerial(Year(D + (8 - WeekDay(D)) Mod 7 - 3), 1, 1)
NOSEM = ((D - NOSEM - 3 + (WeekDay(NOSEM) + 1) Mod 7)) \ 7 + 1
End Function
Mon souci est que je ne sais pas le mettre en oeuvre. Lorsque je tâche de l'exécuter, j'ai un message d'erreur du type "end sub attendu"
voici le code que j'ai tenté de faire :
Sub sen()
Function num_sem(D As Date) As Long
D = Range("A2").Value 'pour exemple A2 indique une date
num_sem = DateSerial(Year(D + (8 - Weekday(D)) Mod 7 - 3), 1, 1)
num_sem = ((D - num_sem - 3 + (Weekday(num_sem) + 1) Mod 7)) \ 7 + 1
End Function
End Sub
merci de votre aide
8 oct. 2008 à 14:48
4 janv. 2008 à 10:24
4 janv. 2008 à 10:21
Gobillot semble avoir prévu ce soucis :
http://www.codyx.org/snippet_recuperer-numero-semaine_61.aspx#401
testé avec mon code, issu du descriptif fournis sur le site wikipedia
http://fr.wikipedia.org/wiki/ISO_8601#Num.C3.A9ro_de_semaine
3 janv. 2008 à 19:35
prends n'importe quel calendrier avec la numérotation des semaines, tu le verras.
une semaine a un numéro et une année d'appartenance. cette numérotation est unique et normalisée.
la semaine 1 de l'année X est la première semaine comprenant le 4 janvier de l'année X.
si on s'en tient aux fonctions vba la semaine du 31/12/2007 au 6/1/2008 est la semaine 53 de l'année 2007 si on est le 31/12, et la semaine 1 de l'année 2008 si on est après le 1/1/2008.
La même semaine a deux numérotations...
et de toute façon il n'existe pas de semaine 53 dans l'année 2007.
(C'est pas moi qui le décide, c'est la ISO 8601 si tu veux de la lecture ;-) )
3 janv. 2008 à 12:03
où est le soucis ?
3 janv. 2008 à 11:44
Format(Date, "ww", vbMonday, vbFirstFourDays)
ou
DatePart("ww",Date,vbMonday,vbFirstFourDays)
j'obtiens semaine 53 pour le #31/12/2007# au lieu de semaine 1
le code donné sort bien la semaine 1
(en même temps c'est du vba sous Access 97 ;-) ceci explique peu etre cela )
22 juin 2006 à 16:20
? DatePart("ww",#01/01/05#)
1
à noter que la fonction DatePart possède en outre deux parametres FirstDayOfWeek et FirstWeekOfYear...
22 juin 2006 à 14:56
Public function NumeroSemaine(ByVal D as Date) As Integer NumeroSemaine = DatePart("ww",D) End Functionest certe bien plus simple mais ne donne pas de bon résultats pour certains jours comme le 01/01/2005 qui tombe la semaine
31 et non pas la semaine 1.
26 mai 2005 à 14:35
C'est normal que la fonction : NumeroJourJulien renvoi un resultat comme celui-ci : 2453371,5 ?
J'ai moi-même écrit des fonctions de calcul numéro semaine, et je n'obtient pas ce type de résultat !!!??
J'avoue ne pas comprendre !
23 oct. 2004 à 12:13
c'est valable pour bon nombre de sources, tu sais.....
23 oct. 2004 à 11:10
c bien de dire que le code a été copier-coller depuis vbfrance et d'ailleurs depuis ma source qui cela dit est effectivement bien compliquée et dont le résultat est le même que la m..tienne lol...
http://www.vbfrance.com/code.aspx?id=5253
pour ceux qui doutent de l'utilité de ce code, deux chose à dire :
- si on traduit cette source en asm ou C et que l'on en fait une dll appellé par VB...ca sera beaucoup plus rapide que les fonctions de VB (surtout en cas d'appel fréquents...)
- et de plus avec la date julienne, on peut calculer les saisons, les quartiers de lune, des éclipses et bien d'autres choses...
ShareVB
4 août 2004 à 20:02
typename ( Format(Date, "ww")) -> String
4 août 2004 à 18:08
VarType(Format$(Date, "ww"))
retourne 8, cad que Format$ serait de type STRING...
Mais Format sans le signe $ est bien de type Variant.
4 août 2004 à 18:03
4 août 2004 à 16:57
Format$ renvoyant un String....
4 août 2004 à 15:10
4 août 2004 à 14:58
4 août 2004 à 14:51
MsgBox Format$(Date, "ww")
Est-ce buggé selon des cas bien précis ?
3 août 2004 à 15:06
3 août 2004 à 14:35
Public function NumeroSemaine(ByVal D as Date) As Integer NumeroSemaine = DatePart("ww",D) End FunctionFaut pas se prendre la tete quand des fonctions comme DateDiff() ou DatePart() existent déjà...
3 août 2004 à 11:47
3 août 2004 à 11:35
tu t'ai bien compliqué la vie je crois !!
a+
juva
3 août 2004 à 10:36
Public Function NumeroSemaine(ByVal D As Date) As Integer NumeroSemaine = DateDiff("ww", "01/01/" & CStr(Year(D)), D, vbMonday, vbFirstJan1) + 1 End Function