Convertir le nom du mois en numéroRésolu

Question

Bonjour,

Voici une petite question toute simple :
Je ne connais pas toute les fonctions et je cherche a convertir une variable qui contient le nom du mois en numéro du mois.J'ai pas exemple USF.Combobox1.Value Janvier et je voudrais  NumMois(USF.Combobox1.Value) 1.
Une tel fonction existe t elle sinon je me débrouillerais ?

Merci

jmfmarques · Accepted Answer

Bonjour, (et sans préjudice de l'ooportunité de ce que tu fais là, car cela va dépendre de chaque machine !)


Private Sub Command3_Click()
  mois = "janvier"
  MsgBox Month("01/" & mois & "/2000")
  mois = "novembre"
  MsgBox Month("01/" & mois & "/2000")
End Sub

drik56 · Answer

Bon sinon j'ai crée cette fonction (ma première ):

Function NumMois(Mois)
    Select Case (Mois)
        Case janvier
            NumMois = 1
        Case février
            NumMois = 2
        Case mars
            NumMois = 3
        Case avril
            NumMois = 4
        Case mai
            NumMois = 5
        Case juin
            NumMois = 6
        Case juillet
            NumMois = 7
        Case août
            NumMois = 8
        Case septembre
            NumMois = 9
        Case octobre
            NumMois = 10
        Case novembre
            NumMois = 11
        Case décembre
            NumMois = 12
    End Select
End Function

Pourriez-vous me dire si elle est bonne et je pourrais l'améliorer et comment ???

Merci

drik56 · Answer

Bon alors la tu marque un point.
Je n'aurais pas pensé a faire ca et effectivement c'est ce qu'il me faut donc merci jmfmarques.

Sinon juste pour ma culture perso pourriez-vous corriger ma fonction histoire que je sache comment faire la prochaine fois. Merci

jmfmarques · Answer

Tu veux savoir corriger ta fonction ?

Ainsi :

Private Sub Command1_Click()
 MsgBox NumMois("mars")
End Sub



Private Function NumMois(Mois As String) As Integer
    Select Case Mois
        Case "janvier"
            NumMois = 1
        Case "février"
            NumMois = 2
        Case "mars"
            NumMois = 3
        Case "avril"
          'etc...
    End Select
End Function

drik56 · Answer

Ok Merci beaucoup
Je vois ou sont mes erreurs

cs_JMO · Answer

Bonjour,

Sur le même principe que jmfmarques (bonjour Jacques):

monMois = "juillet"

maDate = Day(now) & space(1) & monMois & space(1) & Year(now)
If IsDate(maDate) Then MsgBox Month(DateValue(maDate))

jean-marc

jmfmarques · Answer

Bonjour Jean-Marc,

oui, on peut s'amuser avec tout (selon son humeur du moment), y compris ainsi

MsgBox Month(DateValue("juin " & 1 & "," & 0))

Convertir le nom du mois en numéro

7 réponses

Votre réponse

Discussions similaires