Mois et Année sous VBA d'access
Résolu
banoka
-
visto94 -
visto94 -
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
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
A voir également:
- Vba année d'une date
- Chanteur blond annee 80 - Forum Musique / Radio / Clip
- Incompatibilité de type vba ✓ - Forum Programmation
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Samsung
- Whatsapp date incorrecte ✓ - Forum Mobile
- Airpods 3 date de sortie - Guide
2 réponses
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
