Urgent recherche source qui donne le numéro de la semaineRésolu

Question

Salut, 

recherche source qui donne le numéro de la semaine a la date du jour 

Merci d'avance.

robers@coditel.net

Neo.balastik · Accepted Answer

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

cs_CanisLupus · Answer

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

cs_ITALIA · Answer

Sinon t'as des sources qui t'aideront :

http://www.vbfrance.com/code.aspx?ID=20083
http://www.vbfrance.com/code.aspx?ID=22989

It@li@

cs_CanisLupus · Answer

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

Sylouf · Answer

La solution :

Function semaine() As Integer
semaine = DatePart("ww", Date, vbUseSystem, vbFirstFourDays)
End Function

voila

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

5 réponses

Discussions similaires