Les Snippets

Nouveaux snippets
Snippets les plus consultés
Proposer un snippet

 Abonnez vous à ce fil d'information Les rss

Rechercher :

Par langages :

Par Catégorie

Compteurs


Nombre de sujets : 726
Nombre de snippets : 2253
Connexion

Récupérer le numéro du mois à partir de son nom

Niveau requis pour utiliser/comprendre cette source : 1 ( Débutant )
Créé le 02/07/2007 21:20:19 et initié par PCPT [Liste]
Date de mise à jour : 19/12/2007 17:47:53
Vue : 29944
Catégorie(s) : Date & Heure, Chaîne de caractères
Langages dispo pour ce code :
- VB6, VBA
- VB6, VBA
- Javascript
- Java
- PHP 3, PHP 4, PHP 5
- Delphi 5
- Delphi 5
- Delphi 5
- VB6, VBA
- PHP 5
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 02/07/2007
Posté par PCPT [Liste]
Function GetMonthNum(ByVal sMonth As String) As Integer
    Select Case LCase$(sMonth)
        Case "janv", "janvier":                     GetMonthNum = 1
        Case "févr", "février", "fevr", "fevrier":  GetMonthNum = 2
        Case "mars":                                GetMonthNum = 3
        Case "avr", "avril":                        GetMonthNum = 4
        Case "mai":                                 GetMonthNum = 5
        Case "juin":                                GetMonthNum = 6
        Case "juil", "juillet":                     GetMonthNum = 7
        Case "août", "aout":                        GetMonthNum = 8
        Case "sept", "septembre":                   GetMonthNum = 9
        Case "oct", "octobre":                      GetMonthNum = 10
        Case "nov", "novembre":                     GetMonthNum = 11
        Case "déc", "décembre", "dec", "decembre":  GetMonthNum = 12
        Case Else:                                  GetMonthNum = 0
    End Select
End Function

Snippets en rapport avec : Mois, Date, Numéro

16/06/2011 - Connaitre l'année courante

04/12/2010 - Retourner le Nième jour de la période (ex : 3ème lundi d'aout 2010)

30/09/2010 - SetFileDateTime - Modification de la date d'un fichier

31/05/2009 - Modifier la date système

20/01/2009 - Obtenir l'heure précise (HH NN SS + dixièmes, centièmes, millièmes de seconde)

05/01/2009 - Numérotation ISO des semaines

19/07/2008 - nombre d'années(age)

19/07/2008 - nom de la saison d'une date

16/04/2008 - Récupérer le nom du fichier le plus récent

21/09/2007 - Numéro Ligne et Colonne d'une Matrice L x C à partir de son numéro d'ordre



Codes sources en rapport avec : Mois, Date, Numéro

{Javascript / DHTML} CALENDRIER DE BASE
C'est un calendrier de base, permettra de développer comme agenda, calendrier des club, les activité...

{PHP} CALENDRIER + AGENDA TRÈS SIMPLE (GERER LES JOURS FÉRIÉS ET LES JOURS SPÉCIAUX)
Salut, Voici un script très simple d'une agenda en ligne , au quelle on peut gérer les jours fériée...

{Visual Basic, VB6, VB.NET, VB 2005} NUMÉRO DE SEMAINE
Afin de déterminer le numéro d'une semaine en partculier, j'ai écrit ce code en m'appuyant sur la No...

{Visual Basic, VB6, VB.NET, VB 2005} CALENDRIER SOUS VBA (EXCEL)
Ce code permet de sélectionner une date dans un calendrier Le nombre de jour par mois et défini Le...

{Delphi} GESTION DE CALENDRIER DYNAMIQUE
Dans n'importe quelle application de gestion vous avez besoin d'un calendrier d'activité. Et bien c...

{SQL} DERNIER JOUR DU MOIS, OU DE LA SEMAINE
J'ai mis ces fonctions toujour utiles dans CODIX (les snippets) mais l'un est faut et on peut pas le...

{Javascript / DHTML} NUMERO DE LA SEMAINE
Trois méthodes pour l'objet Date, une pour connaître le numéro du jour dans l'année, une pour obteni...

{Delphi} GETYMDBETWEEN() - DIFFÉRENCE ENTRE 2 DATES (ANNÉES, MOIS, JOURS)
Calcule la différence entre deux dates au format TDateTime. Différence comptée en Ans, Jours, Mois....

{PHP} CALENDRIER - FLOPTWO
Calendrier - floptwo : Il s'agit d'un script qui réalise un calendrierà partir de la date du jour. ...

{Visual Basic, VB6, VB.NET, VB 2005} VBA EXCEL TRANSFORME UNE DATE ENREGISTRÉE AU FORMAT ANGLAIS (BOGUE D'INVERSION MOIS / JOUR)
A ma grande surprise, je constate qu'il existe encore des fichiers Excel contenant l'anomalie liée a...