Mois et Année sous VBA d'access
Résolu/Fermé2 réponses
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 204
24 févr. 2008 à 07:39
24 févr. 2008 à 07:39
Bonjour,
Il faut utiliser la fonction DatePart().
Dim myDate As Variant 'déclaration de la variable
myDate = DatePart("m", Date) 'extrait le mois de la date courante.
myDate = DatePart("yyyy",Date) 'extrait l'année de la date courante.
myDate = DatePart("d", Date) 'extrait le jour de la date courante.
Bon courage
;o)
Polux
Il faut utiliser la fonction DatePart().
Dim myDate As Variant 'déclaration de la variable
myDate = DatePart("m", Date) 'extrait le mois de la date courante.
myDate = DatePart("yyyy",Date) 'extrait l'année de la date courante.
myDate = DatePart("d", Date) 'extrait le jour de la date courante.
Bon courage
;o)
Polux
Je remonte le sujet car il m'intéresse, en effet polux à très bien expliqué comment obtenir le format YYYYMM mais il n'explique pas comment l'affiché ensuite...
J'ai fait quelque essai mais cela c'est avéré infructueux je vous donne mon code si quelqu'un veut bien me donner un petit coup de main...
myDate = DatePart("m", Date)
myDate = DatePart("yyyy", Date)
msgbox myDate
Malheureusement je n'obtiens que l'année comme résultat.
OU
myMonth = DatePart("m", Date)
myYear = DatePart("yyyy", Date)
myDate = myYear + myMonth
msgbox myDate
---> on est en juillet 2010 je devrai donc obtenir 201007, cependant j'obtiens 2010 seulement
Merci
J'ai fait quelque essai mais cela c'est avéré infructueux je vous donne mon code si quelqu'un veut bien me donner un petit coup de main...
myDate = DatePart("m", Date)
myDate = DatePart("yyyy", Date)
msgbox myDate
Malheureusement je n'obtiens que l'année comme résultat.
OU
myMonth = DatePart("m", Date)
myYear = DatePart("yyyy", Date)
myDate = myYear + myMonth
msgbox myDate
---> on est en juillet 2010 je devrai donc obtenir 201007, cependant j'obtiens 2010 seulement
Merci
eriiic
Messages postés
24600
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
21 octobre 2024
7 239
7 juil. 2010 à 17:58
7 juil. 2010 à 17:58
Bonjour,
essaie avec myDate = myYear *100 + myMonth
eric
essaie avec myDate = myYear *100 + myMonth
eric