Calcul des jours en fonction du n° de semaine

Soyez le premier à donner votre avis sur cette source.

Vue 9 383 fois - Téléchargée 383 fois

Description

Zavez juste a tele charger le ziiip, tout est dedans avec des fenêtres et tout et tout...

Source / Exemple :


Pour les plus pressés, voici la formule qui m'a usée les méninges pendant 2 semaines.....

Lundi = ((((CDate("01/01/" & Year(Now()))) * 1) +((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 2
Mardi = ((((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 3
Mercredi = ((((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 4
Jeudi = ((((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 5
Vendredi = ((((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 6
Samedi = ((((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 7
Dimanche = ((((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7)) - Weekday(((CDate("01/01/" & Year(Now()))) * 1) + ((CInt(Form1.NSemaine.Text) - 1) * 7))) + 8

Conclusion :


si vous avez des questions et/ou des suggestions, mailez moi.....

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Cheval
Messages postés
81
Date d'inscription
dimanche 21 juillet 2002
Statut
Membre
Dernière intervention
11 octobre 2015
-
Salut,

J'ai modifier ton appli pour pouvoir changer la date.
Si ça t'interresse je peus te la faire parvenir si tu me fait parvenir ton adresse couriel...

Pegase
palm56
Messages postés
8
Date d'inscription
mercredi 26 février 2003
Statut
Membre
Dernière intervention
20 juin 2007
-
Salut,

Désolé de te le dire mais ta fonction ne fonctionne pas entièrement.

Elle retourne "27/12/2010" en tant que première semaine de 2011, elle devrait retourner "03/01/2011".

Autre test, semaine 20 de l'année 2010, elle retourne "10/05/2010" au lieu de "17/05/2010".

Bref, des choses à revoir.
Désolé, yavais une erreur ds le Zip....
Mais c'est corrigé
à marche pas chez moa.

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.