Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Stéphane
Bonjour Emilie,
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
"Emilie" a écrit dans le message de news: 48f30a33$1$894$
Bonjour
Je voudrais connaitre la date du samedi de la semaine 42, je narrive pas a trouver le bon code Pouvez-vous m'aider Merci par avance Emilie
Bonjour Emilie,
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est
en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et
que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors,
sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
"Emilie" a écrit dans le message de news: 48f30a33$1$894$
Bonjour
Je voudrais connaitre la date du samedi de la semaine 42, je narrive pas a trouver le bon code Pouvez-vous m'aider Merci par avance Emilie
Emilie
Bonjour
Merci pour ta réponse Cordialement Emilie "Stéphane" a écrit dans le message de news:
Bonjour Emilie,
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
"Emilie" a écrit dans le message de news: 48f30a33$1$894$
Bonjour
Je voudrais connaitre la date du samedi de la semaine 42, je narrive pas a trouver le bon code Pouvez-vous m'aider Merci par avance Emilie
Bonjour
Merci pour ta réponse
Cordialement
Emilie
"Stéphane" <nsolsapvaemrgne@npooswpearm-m.fr> a écrit dans le message de
news: eoKn0gRLJHA.1156@TK2MSFTNGP04.phx.gbl...
Bonjour Emilie,
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01
est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle
semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi
(=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
Merci pour ta réponse Cordialement Emilie "Stéphane" a écrit dans le message de news:
Bonjour Emilie,
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
"Emilie" a écrit dans le message de news: 48f30a33$1$894$
Bonjour
Je voudrais connaitre la date du samedi de la semaine 42, je narrive pas a trouver le bon code Pouvez-vous m'aider Merci par avance Emilie
http://www.codyx.org/recherche.aspx?rÚte
"Stéphane" <nsolsapvaemrgne@npooswpearm-m.fr> wrote in message
news:eoKn0gRLJHA.1156@TK2MSFTNGP04.phx.gbl...
Bonjour Emilie,
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01
est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle
semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi
(=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6
Il y a peut-être 1 autre méthode plus rapide, mais sachant que le 01/01 est en semaine 1, que chaque lundi suivant fait commencer 1 nouvelle semaine et que chaque semaine comporte 7 jours du dimanche (=0) au samedi (=6), alors, sauf erreur :
Dim jour_de_l_an As Date = New Date(Today.Year, 1, 1)
Dim semaine2, semaine42, samedi_semaine42 As Date
Select Case jour_de_l_an.DayOfWeek
Case DayOfWeek.Sunday '0
semaine2 = jour_de_l_an.AddDays(1)
Case DayOfWeek.Monday To DayOfWeek.Saturday '1 à 6