Mois et Année sous VBA d'access

Résolu
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
Configuration: Windows XP
Internet Explorer 7.0

2 réponses

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

        "---> on est en juillet 2010 je devrai donc obtenir 201007, cependant j'obtiens 2017 "
        ;-)
        0
      2. Contributeur
        Bonjour,

        essaie avec myDate = myYear *100 + myMonth

        eric
        0
      3. Cela marche nickel merci beaucoup Eriiic !!
        0