Urgent recherche source qui donne le numéro de la semaine

[Résolu]
Signaler
Messages postés
40
Date d'inscription
dimanche 11 janvier 2004
Statut
Membre
Dernière intervention
9 décembre 2006
-
Messages postés
1
Date d'inscription
lundi 1 mars 2004
Statut
Membre
Dernière intervention
21 juin 2005
-
Salut,

recherche source qui donne le numéro de la semaine a la date du jour

Merci d'avance.

robers@coditel.net

5 réponses

Messages postés
796
Date d'inscription
jeudi 17 mai 2001
Statut
Membre
Dernière intervention
5 mai 2009
7
Ben comme je te disais dans un autre post:

format$(TaDate, "ww")

Si ce que te retourne VB ne te satisfait pas, tu dois avoir une autre définition du n° de semaine alors...

Guy
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Salut,

Essaies ça :

Dim sDate As Date
Dim Semaine As Integer

sDate = "31/12/04"

Semaine = CInt(Format(sDate, "ww", vbUseSystemDayOfWeek, vbFirstFourDays))
If Semaine 1 And Month(sDate) 12 Then
MsgBox " Semaine : " & Semaine & " - " & "Année : " & Year(sDate) + 1
Else
MsgBox " Semaine : " & Semaine & " - " & "Année : " & Year(sDate)
End If

Ca a l'air de fonctionner sur +sieurs années que g testées. Sauf quand le 1er janvier est un samedi ou un dimanche (le 1 et le 2 /01/2005 sont considérés comme faisant partie de la 53 e semaine de 2004).

Cordialement

CanisLupus
Messages postés
2169
Date d'inscription
vendredi 20 avril 2001
Statut
Membre
Dernière intervention
30 juin 2009
8
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
16
Bah, IT@LI@, j'ai vu les sources que tu cites, elles sont correctes mais ça ne règle pas le prob des samedi et dimanche qui tombent en début d'année. (comme l'ex que g proposé).
Sachant que les calendriers français sont identiques tous les 28 ans (ex : le calendrier de 2004 est le même que 1976 et ainsi de suite, en avant ou en arrière), il faut donc tester sur 28 ans (de 1977 à 2004) pour être sur de son coup.
Alors, à savoir comment on considère les samedis et dimanche.......

Cordialement

CanisLupus
Messages postés
1
Date d'inscription
lundi 1 mars 2004
Statut
Membre
Dernière intervention
21 juin 2005

La solution :

Function semaine() As Integer
semaine = DatePart("ww", Date, vbUseSystem, vbFirstFourDays)
End Function

voila