Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
 -  Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
117 Abonnés
 
 

Dates & Heures - 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émentsDescription
intMonthDésignation numérique du mois. Par exemple, 1 pour janvier, 2 pour février, et ainsi de suite.
AbbreviateFacultatif. 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 : 18/10/2006 @ 10:44
Dernière modification : 18/10/2006 @ 10:44
Catégorie : Dates & Heures
Page lue 1614 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 79 Membres

membres les 10 derniers :
CJ6774   monaker   Jerry   jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 6

Total visites : Total visites : 174502  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.15 seconde