Premier jour de la semaine

Bonjour est-il possible d'otenir le premier jour d'une semaine (en chiffre) en passant le numéro de la semaine ainsi que l'année? Par avance merci!!!!!!!!!

Deux fonction que j'ai faite il y a quelques temps en VBA, mais devrait marcher en VB6.0

'*****************************************************************
'Fonction : jour_semaine *
' Projet : Rapports_Timetech *
' Par : Maxime Savard *
' Le : 2004-01-29 *
' description : Reçoi une semaine et une année *
' et retourne une string qui indique *
' la première et la dernière journée de la semaine *
' ex: Du 2003-10-03 au 2003-10-10 *
'*****************************************************************
Function jour_semaine(Semaine As Integer, année As Integer) As String
Dim temp As Date
Dim JourDeLAn As Date
Dim MonJourSem As Integer
Dim NbresJours As Integer

'trouve le jour de l'an de l'année
JourDeLAn = CDate("01/01/" & année)
'trouve le jour de l'an tombe quel jour (Lundi, mardi, .......)
MonJourSem = WeekDay(JourDeLAn, 2)

temp = (CDate("01/01/" & année) - MonJourSem) + ((val(Semaine) - 1) * 7)
jour_semaine = "Du " & temp & " au " & temp + 6
'fabrique la date du lundi de la semaine rechercher
'temp = CDate("01/01/" & Année) + NbresJours
'Fabrique la string final
'jour_semaine = "Du " & temp & " au " & temp + 6

End Function

Function jour_semaine_Dimanche(Semaine As Integer, année As Integer) As String
Dim JourDeLAn As Date
Dim MonJourSem As Integer
Dim NbresJours As Integer

'trouve le jour de l'an de l'année
JourDeLAn = CDate("01/01/" & année)
'trouve le jour de l'an tombe quel jour (Lundi, mardi, .......)
MonJourSem = WeekDay(JourDeLAn, 2)

jour_semaine_Dimanche = (CDate("01/01/" & année) - MonJourSem) + ((val(Semaine) - 1) * 7)

End Function
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

merci je vai voir ça tout de suite mais ça m'a l'air bien!

j'ai faite la première fonction avant de faire la 2e lol

mais en gros, la première retourne une string donnera l'intervale de temps de la semaine.

la 2e, donne la journée du dimanche seulement
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

si j'ai bien compris, tu veux savoir qu'elle est la date du Lundi d'une semaine, en fonction de son Num de semaine et de l'année ?
Si c'est bien cela, alors voila une formule d'une seule ligne qui le fait ...

Function GetLundi(Byval wn as long, byval Y as long) as Date GetLundi = DateAdd("ww", wn - 1, CDate("01/01/" & y)) - Weekday(CDate("01/01/" & y)) + 2 End Function

A utiliser en transmettant le num de semaine à l'argument 'wn' et l'année à l'argument 'y'
Christophe R.

Bonjour, il me semble que seule la solution de Dragon est bonne car les autres ne prennent pas en compte les années bissextiles. Enfin, il me semble. Bon boulot...

j'avoue ne pas voir ce que viens faire le coté bissextile de la chose

si on teste les deux méthodes avec semaine 6 de l'année 2011, on ne trouve pas les memes resultats.
Ce n'est peeut etre pas due aux années bissextile  mais sur certaines années, on ne trouve pas le meme résultat avec les deux solutions proposées.

NE PAS FAIRE :

CDate("01/01/" & y)

c'est moche, mais bon, ca fonctionne, partout
mais c'est une très mauvaise habitude a ne pas prendre. vous vous rendez dépendant des paramètres régionnaux du poste.

imaginez :

CDate("06/02/" & y)

sur certains postes, il s'agira du 6 Février
sur d'autres, ce sera le 2 Juin ...

passez par Dateserial, qui sera de plus plus rapide en temps d'execution

DateSerial(y, 1,1)