Mois et Année sous VBA d'access

Résolu/Fermé
banoka - 23 févr. 2008 à 20:42
 visto94 - 8 juil. 2010 à 09:42
Bonjour,
je n'arrive pas a extraire le mois et l'année de la date courrante je n'arrive qu'obtenir la date sous forme jj/mm/aaaa avec la commande Date()
Comment faire pour obtenir selemnt le mois ou lannée?
Merci

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
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
0
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
0
Excusez je me suis trompé

"---> on est en juillet 2010 je devrai donc obtenir 201007, cependant j'obtiens 2017 "
;-)
0
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
Bonjour,

essaie avec myDate = myYear *100 + myMonth

eric
0
Cela marche nickel merci beaucoup Eriiic !!
0