[AC-2007] Formater les mois [Résolu]

[Marcello5255]

Bonjour à tous.

Lors de la création d'un enregistrement avec une date, je sélectionne toujours avec la fonction DatePart, l'année et le mois.

Code :

1
2
Année = DatePart ("yyyy" , DateDoc)
Mois = DatePart ("m" , DateDoc)

La fonction accepte parmi les arguments nommés, "m", mais pas "mm" , ni "mmmm"

Pour donner un nom au mois, j'utilise une instruction if.

Code :

if mois = 1 then NomMois = "Janvier"

etc.....


Est-ce la meilleure solution, ou existe-t-il une méthode plus simple pour écrire le nom du mois.

Merci pour votre aide

Marcel.

[chahine92]

bonjour,

avec la methode

Code :

Format(DateDoc, "mmmm")

bon courage

[FtF Nemesis]

Bonjour,

tu as la fonction MonthName(nombre) qui renvoi automatiquement le nom du mois correspondant.

[Marcello5255]

Bonjour Chahine92,

Je n'ai pas très bien compris où j'aurais pu introduire ta méthode dans mon code VBA.
Par contre, la fonction MonthName de FtfNemesis, donne exactement ce que je souhaitais.

Pour info et si ça peut servir à d'autres
J'ai donc:
-Un champ DateDoc, de type Date
-Un champ Mois de type numérique entier
-Un champ NomMois de type texte

Sur DateDoc_ BeforeUpdate,
'J'attribue la valeur "m" au champ Mois, j'en ai besoin sous cette forme aussi'

Code :

Mois = DatePart ("m" , DateDoc)

'J'attribue à NomMois la valeur du mois en lettres, avec la fonction que Nemesis m'a renseignée'

Code :

NomMois = MonthName (Mois)

Un grand merci aux deux.
J'essaierai quand même la méthode de chahine92.

Marcel.