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 : 577
Nombre de snippets : 1795
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 : 11030
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
- PHP 5
- Voir tous les langages pour ce code snippet
Proposer ce code dans un autre langage



Langage : VB6 , VBA
Date ajout : 09/11/2007
Posté par jrivet [Liste]
DateMAJ : 09/11/2007 
Private Sub Form_Load()
   Debug.Print GetMonthNum("janv")
   Debug.Print GetMonthNum("janvier")
   Debug.Print GetMonthNum("févr")
   Debug.Print GetMonthNum("février")
   Debug.Print GetMonthNum("mars")
   Debug.Print GetMonthNum("avril")
   Debug.Print GetMonthNum("avr")
   Debug.Print GetMonthNum("mai")
   Debug.Print GetMonthNum("juin")
   Debug.Print GetMonthNum("juil")
   Debug.Print GetMonthNum("juillet")
End Sub 

Public Function GetMonthNum(MName As String) As Integer
On Error Resume Next
   'NE FONCTIONNE QUE SI LES CARACTERE ACCENTUES SONT PRESENTS
   'D ou On Error Resume Next
   GetMonthNum = Month(Format("01 " & MName & " " & Year(Date), "dd mmmm yyyy"))
On Error GoTo 0
End Function
Remarque :
Petite variante en VB6. comme insrit dans le commentaire ne fonctionne que si les caractères accentués sont présents.

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

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

01/09/2007 - Contrôle si Date Invalide [CDI]

29/03/2007 - Obtenir le dernier jour de la semaine

26/01/2007 - Numéro de série (physique) du disque dur par WMI

16/11/2006 - Convertit en jours / heures / minutes le temps entre 2 dates & heures

30/10/2006 - Déterminer le jour de la semaine d'une date

12/10/2006 - Trouver le dernier week end pour un mois et une année donnés



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

{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...

{PHP} DIFFÉRENCE ENTRE DEUX DATE (LISTE RÉCUPÉRÉE DANS UN TABLEAU)
Salut les codeurs fou ! Je développe actuellement une petite appli pour faire mes comptes, et j'en ...

{Javascript / DHTML} LA DATE TOUTE SIMPLE.
Il permet de mettre sur votre site la date sans pub....

{PHP} CALENDRIER DU MOIS EN COURS
Le calendrier affiche le mois en cours, le jour est affiché en gras. Il suffit de copier le calque d...