Retrouver une date à partir d'un numéro de semaine

Signaler
-
Messages postés
10
Date d'inscription
mercredi 16 novembre 2005
Statut
Membre
Dernière intervention
3 mars 2010
-
Est-il possible de retrouver la date du premier jour d'une semaine en entrant uniquement le numéro de la semaine (et l'année bien sur).

Je n'ai trouvé aucune référence à ce sujet.

Merci.

3 réponses

Pourrais-tu donner un exemple ? Je comprends mal ce que tu cherches.

Merci!
-------------------------------
Réponse au message :
-------------------------------

Pourrais-tu donner un exemple ? Je comprends mal ce que tu cherches.

Merci!

-------------------------------
Réponse au message :
-------------------------------

Est-il possible de retrouver la date du premier jour d'une semaine en entrant uniquement le numéro de la semaine (et l'année bien sur).

Je n'ai trouvé aucune référence à ce sujet.

Merci.
-------------------------------
Function LaDate(semaine, année)
JourDeLAn = CDate("01/01/" & année)
MonJourSem = WeekDay(JourDeLAn, 2)
Select Case MonJourSem
Case 1
NbresJours = ((Val(semaine) - 1) * 7) + 2
Case 2
NbresJours = ((Val(semaine) - 1) * 7) + 1
Case 3
NbresJours = ((Val(semaine) - 1) * 7) + 0
Case 4
NbresJours = ((Val(semaine) - 1) * 7) + 6
Case 5
NbresJours = ((Val(semaine) - 1) * 7) + 5
Case 6
NbresJours = ((Val(semaine) - 1) * 7) + 4
Case 7
NbresJours = ((Val(semaine) - 1) * 7) + 3
End Select
LaDate = CDate(Day(NbresJours) & "/" & Month(NbresJours) & "/" & année)
End Function
-
------------------------------
Messages postés
10
Date d'inscription
mercredi 16 novembre 2005
Statut
Membre
Dernière intervention
3 mars 2010

Bonjour,

Cette fonction est pas mal, mais je cherche autre chose.

J'ai un numéro de semaine (par ex 50), un jour (par ex le lundi), une année (2006) et je voudrais avoir la date exacte (11 dec 2006).

quelqu'un peut il m'aider?

merci d'avance

fred