Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

º Fonction fAddressOf
º Fonction fInStrRev

Fonction fMonthName
º Fonction fReplace
º Fonction fRound
º Fonction fSortArray
º Fonction fSplit

Tuto Access 2007

Base de données

Lettre d'information

Equivalence - Fonction fMonthName

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

Date de création : 14/09/2006 @ 23:16
Dernière modification : 27/10/2006 @ 16:09
Catégorie : Equivalence
Page lue 1753 fois

Prévisualiser la page Imprimer la page