Trouve la date du lundi pour une semaine et une année données

Commenter

Contenu du snippet

Pour tous ceux qui galere pour trouver la date du Lundi pour une semaine et une année données. J'ai fait cette fonction car sur le net il n'y a pas grand chose sur le traitement des dates.
Cette fonction fonctionne sur Win 2000, je n'ai pas testé sur les autres OS. (Elle peut etre appliqué dans VBA Excel ou VB)
Le code est assez court et rapide en execution. ;-)

Voilou, A++

Source / Exemple : 


Function DateLundi(Sem As Integer, Annee As Integer) As Date
'Retrouve la date suivant une semaine demandée
Dim X As Integer

'Trouve la position du lundi de la premiere semaine de l'année
'ensuite on le soustrait avec le nb de semaine converti en jour
X = (Sem * 7) - (Weekday("01/01/" & Annee, vbMonday) + 6)

'Decale le premier jour de l'annee avec la valeur qu'on a trouvé
DateLundi = DateAdd("d", X, "01/01/" & Annee)
End Function

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.