Conversion chiffres en mois

ruth -  
Marden Messages postés 1075 Statut Membre -
Bonjour à tous !
Svp existe t il en vb une fonction qui permet la conversion directement des chiffres (1 à 12) en mois?
exemple:1 en Janvier,2 en février
Merci

2 réponses

Profil bloqué
 
je ne sais pas si ça existe mais tu peux créer facilement une fonction qui fait ça.

Public Function conversion(num As Integer) As String
Select Case num
Case 1
conversion = "janvier"
Case 2
conversion = "février"
Case 3
conversion = "mars"
Case 4
conversion = "avril"
Case 5
conversion = "mai"
Case 6
conversion = "juin"
Case 7
conversion = "juillet"
Case 8
conversion = "aout"
Case 9
conversion = "septembre"
Case 10
conversion = "octobre"
Case 11
conversion = "novembre"
Case 12
conversion = "décembre"
Else
conversion = "erreur"
End Select
End Function

tu peux l'essayer avec une userform et deux zones de textes
et un bouton de commande

1 ère zone de texte pour les numéro
2 ème pour l'affichage des mois
bouton de commande :

Private Sub CommandButton1_Click()
Text2.Text = conversion(val(Text1.Text))
End Sub

la fonction marche bien, tu peux la copier dans ton projet pour pouvoir l'utiliser.

time is not money, time is life
0
Marden Messages postés 1075 Statut Membre 210
 
C'est typiquement le genre de fonction à programmer avec un tableau, quelque soit le langage. Avec un test sur la validité du numéro, pour pointer éventuellement sur la valeur erronée (selon le langage, d'indice [0] ou [13]).
0