Premier lundi d'une année VBA
Résolu
Clemzd
Messages postés
177
Date d'inscription
Statut
Membre
Dernière intervention
-
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bidouilleu_R Messages postés 1181 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je souhaites afficher le premier lundi d'une année.
J'ai trouvé comment afficher le jour d'une date :
Mais je ne parviens pas à afficher le premier lundi de l'année.
Merci de votre aide.
Je souhaites afficher le premier lundi d'une année.
J'ai trouvé comment afficher le jour d'une date :
Sub simple1()
maDate = "3/1/11"
MsgBox Format(Weekday(maDate), "dddd")
End Sub
Mais je ne parviens pas à afficher le premier lundi de l'année.
Merci de votre aide.
A voir également:
- Premier lundi de l'année
- 1 million de seconde en année - Accueil - Technologies
- Chanson i love you année 70 ✓ - Forum Musique / Radio / Clip
- Chanteur blond année 80 - Forum Musique / Radio / Clip
- Recherche un Chanteur blond 90/2000 ado sûrement - Forum Musique / Radio / Clip
- Chanson anglaise année 60 - Forum Musique / Radio / Clip
4 réponses
bonjour
fonction avec AN_0=variable année
fonction avec AN_0=variable année
Function Lundi1_Janv(an_0 As Integer) As String Lundi1_Janv = Format([DATE(B1,1,8)-WEEKDAY(DATE(B1,1,6))], "dddd dd/mm/yy") End Function
Oui mauvaise recopie de mon grenier, excuses moi
DATE(annee, mois, jour) renvoie le numéro de série du jour donné par date
Le 8 janvier est le 1° jour ou il y aura eu 2 jours identiques donc soustrait du n° de jour du 6 janvier (lundi=2 en joursem)==> n° de série du 1° lundi donc...
pour format tu fais F1 pour connaitre cette fonction....
Michel
Format([DATE(An_0,1,8)-WEEKDAY(DATE(An_0,1,6))], "dddd dd/mm/yy")
DATE(annee, mois, jour) renvoie le numéro de série du jour donné par date
Le 8 janvier est le 1° jour ou il y aura eu 2 jours identiques donc soustrait du n° de jour du 6 janvier (lundi=2 en joursem)==> n° de série du 1° lundi donc...
pour format tu fais F1 pour connaitre cette fonction....
Michel
Tous les 3 mois, tu te poses des questions ?
Le 8 du mois, il y a forcément 2 jours de la semaine identiques...
a consulter
http://xcell05.free.fr/pages/form/dateheure.htm#Op%C3%A9rations
Abandon du suivi
Le 8 du mois, il y a forcément 2 jours de la semaine identiques...
a consulter
http://xcell05.free.fr/pages/form/dateheure.htm#Op%C3%A9rations
Abandon du suivi
Salut Michel,
le raisonnement de michel est bon
Comme ça est plus clair?
dans une semaine il y a 7 jours ...lundi, mardi,....
le 8 janvier on aura vu soit 2 lundi soit 2 mardi......
en informatique le lundi est le 2 ème jour lundi =2
pour 2011
donc le 8 - (le N) du jour du 6/1/201) = 8-5=3
le lundi était le 3 janvier.
merci Michel.
le raisonnement de michel est bon
Comme ça est plus clair?
Function Lundi1_Janv(an_0 As Integer) As String
date1 = DateSerial(an_0, 1, 8)
DATE2 = DateSerial(an_0, 1, 6)
Lundi1_Janv = Format(date1 - Weekday(DATE2), "dddd dd/mm/yy")
End Function
dans une semaine il y a 7 jours ...lundi, mardi,....
le 8 janvier on aura vu soit 2 lundi soit 2 mardi......
en informatique le lundi est le 2 ème jour lundi =2
pour 2011
donc le 8 - (le N) du jour du 6/1/201) = 8-5=3
le lundi était le 3 janvier.
merci Michel.
Qu'apporte Format ?
Qu'est-ce que B1 ? 1 ? 8 ? 6 ?
Pourquoi on soustrait avec weekday etc ?
Merci d'avance de votre réponse.