Obtenir les dates selon le n° de semaine

Question

Bonjour,
je voudrais qu'&#224; partir du n&#176; de semaine je puisse retrouvrer les dates de d&#233;but et de fin de cette semaine.

Merci d'avance pour toute r&#233;ponse

Dev

Gobillot · Answer

retrouve le premier jour de la semaine de l'ann&#233;e en cours sous forme de date en fonction du num&#233;ro de semaine pass&#233;e en param&#232;tre.
pour retrouver le dernier jour de la semaine il suffit de rajouter 6

Private Function SemToDate(nu As Integer) As Date
    Dim j  As Integer
    Dim x  As Integer
    Dim dt As Date
    dt = DateSerial(Year(Now), 1, 1)
    j = Format$(dt, "w", vbUseSystemDayOfWeek)
    x = nu * 7 - 6 - j
    If x < 0 Then x = 0
    SemToDate = dt + x
End Function

Daniel

dev74 · Answer

Merci d'avoir r&#233;pondu. Le code ne fonctionne pas, il me met un message d'erreur :
"Type imcompatible 'Format'".
Que dois-je faire ?

Dev

Gobillot · Answer

tu pourrais dire &#224; quelle Ligne est l'erreur ?

Daniel

dev74 · Answer

L'erreur se trouve &#224; la ligne j=Format$(dt,"w", vbUseSystemDayOfWeek)
La fonction Format ne tient pas compte des semaines

Dev

Gobillot · Answer

j'ai pas d'erreur chez moi, la conversion est implicite:
    j = CInt(Format$(dt, "w", vbUseSystemDayOfWeek))

sinon on l'a directement en num&#233;rique:
    j = DatePart("w", dt, vbUseSystemDayOfWeek)

Daniel

dev74 · Answer

Je vais essayer la premiere solution. La deuxieme me donne le n&#176; de semaine selon la date. J'avais d&#233;ja essayer cette solution

Merci

Dev

Gobillot · Answer

non c'est pour avoir le premier jour de l'ann&#233;e. tout le reste en d&#233;coule.

Daniel

Obtenir les dates selon le n° de semaine

7 réponses

Discussions similaires