Conversion Année Semaine NumJour en date

**filou941** · 22/09/2009, 15h55

Bonjour à tous,

J'utilise la fonction Invdatepart défnie dans le lien http://vb.developpez.com/faq/?page=Dates#invdatepart.

Cependant lorsque j'execute la fonction avec invdatepart(1,1,2011) elle me retourne "03/01/2011" au lieu de "27/12/2010" (premier jour de la premiere semaine de l'année 2011).

Pour cela obtenir la date exacte j'ai retiré la condition

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Weekday(tmpDate, vbMonday) < 6 Then

, et par conséquent je soustrait toujours 1 un au numéro de semaine passé en argument.

La fonction devient donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Public Function InvDatePart(ByVal PosJour As Integer, ByVal NumSemaine As Integer, ByVal Annee As Integer) As Date
 
    tmpDate = CDate("1/1/" & Format$(annee))
    NumSemaine = NumSemaine - 1
    tmpDate = DateAdd("ww", NumSemaine, tmpDate)
    tmpDate = DateAdd("d", PosJour - Weekday(tmpDate, vbMonday), tmpDate)
    Convertir_semaine_date = tmpDate
 
End Function

Quelqu'un peut-il me confirmer que la fonction présente dans la FAQ contient une erreur ?

Merci d'avance.

**ucfoutu** · 22/09/2009, 16h53

Bonjour,

Fonction tout simplement établie en application de la convention selon laquelle la 1ère semaine d'une année est celle qui contient au moins 4 jours dans la nouvelle année et de la convention de choix du rang n° 1 pour le Lundi
(norme ISO 8601)

question de conventions

Si l'on applique ces deux là ===>> le lundi 03/01/2011 est bien le 1er jour de la 1ère semaine de l'année 2011

**filou941** · 22/09/2009, 17h18

Merci de votre réponse.

En effet j'ai oublié de préciser que dans mon calcul le 1 janvier de chaque année fait toujours parti de la semaine 1.

J'ai pris comme base le calendrier d'outlook.