Retrouver une date avec le jour, la semaine et l'annee

Résolu
Signaler
Messages postés
41
Date d'inscription
mercredi 20 octobre 2004
Statut
Membre
Dernière intervention
16 juin 2006
-
Messages postés
41
Date d'inscription
mercredi 20 octobre 2004
Statut
Membre
Dernière intervention
16 juin 2006
-
Je m'explique: je cherche une fonction pouvant me donne une date au format jj/mm/aaaa, sachant que je dispose du jour (ex lundi=1, mardi=2), du numero de semaine et de l'annee

Merci à tous

5 réponses

Messages postés
13
Date d'inscription
lundi 26 avril 2004
Statut
Membre
Dernière intervention
10 novembre 2004

Public Function InvDatePart(ByVal PosJour As Integer, ByVal NumSemaine As Integer, ByVal Annee As Integer) As Date

Dim tmpDate As Date

tmpDate = CDate("1/1/" & Format$(Annee))
If Weekday(tmpDate, vbMonday) < 6 Then NumSemaine = NumSemaine - 1
tmpDate = DateAdd("ww", NumSemaine, tmpDate)
tmpDate = DateAdd("d", PosJour - Weekday(tmpDate, vbMonday), tmpDate)
InvDatePart = tmpDate

End Function

et voila
3
Messages postés
41
Date d'inscription
mercredi 20 octobre 2004
Statut
Membre
Dernière intervention
16 juin 2006

Nickel c exactement ca
0
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
Le code suivant semble fonctionner....

Public Function DateFromWeek(Day As VbDayOfWeek, Week As Integer, Year As Integer) As Date
    DateFromWeek = "01/01/" & Year
    
    Dim i As Integer
    i = Week - DatePart("WW", DateFromWeek)
    
    DateFromWeek = DateAdd("d", i * 7, DateFromWeek)
    DateFromWeek = DateAdd("d", Day - Weekday(DateFromWeek), DateFromWeek)
End Function


Amusez-vous ! ;)
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS
0
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
73
pris de vitesse, lol

Amusez-vous ! ;)
Renfield - thomas_reynald@msn.com
Admin CodeS-SourceS
0
Messages postés
41
Date d'inscription
mercredi 20 octobre 2004
Statut
Membre
Dernière intervention
16 juin 2006

Merci qd meme je vais tester les deux
0