IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

extraction du mois d'une date


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Expert confirmé Avatar de illight
    Homme Profil pro
    Analyste décisionnel
    Inscrit en
    Septembre 2005
    Messages
    2 344
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Analyste décisionnel
    Secteur : Service public

    Informations forums :
    Inscription : Septembre 2005
    Messages : 2 344
    Par défaut extraction du mois d'une date
    Bonjour à tous

    J'ai une toute petite question, qui est plus un conseil, qu'une aide précisuese, car j'ai troué une solution de contournement à mon problème, mais je voudrais juste savoir s'il existe plus simple

    Je souhaite extraire le mois d'une date donnée : le problème est qu'avec les fonctions habituelles, le mois donne un entier, sans le "0" si jamais le mois est par exemple le mois d'août.

    J'ai donc créé cette mini fonction rapidos pour palier à ce problème :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Function RecupMois(DateRecue As Date) As String
    RecupMois = Month(DateRecue)
    If Len(RecupMois) < 2 Then
        RecupMois = "0" & RecupMois
    End If
    End Function
    Du coup, après j'utilise ma fonction sur la date dont je veux extraire le mois


    Connaissez-vous un moyen plus simple que celui-ci, sans passer forcément par une fonction faite à l'arrache ?
    1. Avant de poster, et http://www.developpez.com/sources/
    2. Lors du post, n'oubliez pas, si besoin les balises CODE => voir ici pour l'utilisation
    3. N'oubliez pas le
    4. N'oubliez pas le si la réponse vous a été utile !

  2. #2
    Expert éminent Avatar de mercatog
    Homme Profil pro
    Inscrit en
    Juillet 2008
    Messages
    9 435
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Autre

    Informations forums :
    Inscription : Juillet 2008
    Messages : 9 435
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Function RecupMois(ByVal DateRecue As Date) As String
     
    RecupMois = Format(Month(DateRecue), "00")
    End Function

Discussions similaires

  1. [XL-2010] Extraction du mois d'une Date
    Par EricBOG dans le forum Macros et VBA Excel
    Réponses: 8
    Dernier message: 03/07/2013, 15h05
  2. [XL-2003] Extraction et recopie du jour/mois d'une date jour/mois/année
    Par iIncoming dans le forum Excel
    Réponses: 2
    Dernier message: 02/07/2013, 17h54
  3. Extraction du mois dans une date
    Par Kallamou dans le forum Access
    Réponses: 4
    Dernier message: 02/02/2007, 22h13
  4. [IB6] tester le mois d'une date
    Par qi130 dans le forum SQL
    Réponses: 2
    Dernier message: 19/07/2005, 15h00
  5. [Requête] Modifier l'année et le mois d'une date
    Par brazza dans le forum Requêtes
    Réponses: 3
    Dernier message: 10/01/2005, 17h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo