1er et dernier jour de la semaine...
scoobydoos
Messages postés
64
Date d'inscription
vendredi 31 mai 2002
Statut
Membre
Dernière intervention
28 novembre 2010
-
22 juil. 2003 à 08:40
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 22 juil. 2003 à 13:07
nhervagault Messages postés 6063 Date d'inscription dimanche 13 avril 2003 Statut Membre Dernière intervention 15 juillet 2011 - 22 juil. 2003 à 13:07
A voir également:
- 1er et dernier jour de la semaine...
- Vba dernier jour du mois ✓ - Forum Visual Basic 6
- Sql recuperer dernier enregistrement - Forum SQL
- Date (inversion des jours et des mois) - Forum Visual Basic
- Trouver le premier jours du mois ✓ - Forum VB.NET
- SELECTIONNER les 5 dernière ligne d'une table - Forum SQL
1 réponse
nhervagault
Messages postés
6063
Date d'inscription
dimanche 13 avril 2003
Statut
Membre
Dernière intervention
15 juillet 2011
37
22 juil. 2003 à 13:07
22 juil. 2003 à 13:07
Dim MyDate, MyWeekDay
MyDate = #22/07/2003# ' Attribue une date.
MyWeekDay = Weekday(MyDate) ' 3 correspond à mardi.
Ensuite
tu utilise dateadd
DateAdd(interval, number, date)
Number = ???MyWeekDay???
'formule a trouver
si lundi --> 0
si mardi --> -1
.......
si vendredi --> -5
a toi d'adapter
NouvelleDateDebut =DateAdd( "d", Number, MyDate)
---> lundi
NouvelleDateFinSemaine =DateAdd( "d", 5, NouvelleDateDebut)
---> vendredi
Si c'est
MyDate = #22/07/2003# ' Attribue une date.
MyWeekDay = Weekday(MyDate) ' 3 correspond à mardi.
Ensuite
tu utilise dateadd
DateAdd(interval, number, date)
Number = ???MyWeekDay???
'formule a trouver
si lundi --> 0
si mardi --> -1
.......
si vendredi --> -5
a toi d'adapter
NouvelleDateDebut =DateAdd( "d", Number, MyDate)
---> lundi
NouvelleDateFinSemaine =DateAdd( "d", 5, NouvelleDateDebut)
---> vendredi
Si c'est