Retourner le nom d'un mois

Description

		Cette fonction permet de retourner une chaîne du nom d'un mois spécifié numériquement. A partir d'Access 2000, il existe une fonction équivalente et qui s'utilise de la même façon à savoir, la fonction "MonthName()".

Synthaxe

Expression = fMonthName(intMonth [,Abbreviate])

La synthaxe de la fonction fMonthName comprend les éléments suivants :

Eléments	Description
intMonth	Désignation numérique du mois. Par exemple, 1 pour janvier, 2 pour février, et ainsi de suite.
Abbreviate	Facultatif. Valeur de type Boolean indiquant si le nom du mois est abrégé. Si cette valeur est omise, la valeur par défaut est False, ce qui signifie que le nom du mois n'est pas abrégé.

Exemple

Cet exemple permet de retourner dans la variable strMonth le nom non abrégé du deuxième mois de l'année :

Dim strMonth As String
strMonth = fMonthName (2)

ou

Dim strMonth As String
strMonth = fMonthName (2, False)

Dans ces 2 exemples, la fonction fMonthName retournera "février".

Cet exemple permet de retourner dans la variable strMonth le nom abrégé du neuvième mois de l'année :

Dim strMonth As String
strMonth = fMonthName (2, True)

La valeur retourner par la fonction fMonthName sera "sept".

Code de la fonction

Public Function fMonthName(intMonth As Integer, _
Optional Abbreviate As Boolean = False)

If IsMissing(Abbreviate) Or Abbreviate = False Then
fMonthName = Format(DateSerial(Year(Date), intMonth, 1), "mmmm")
Else
fMonthName = Format(DateSerial(Year(Date), intMonth, 1), "mmm")
End If

End Function