Conversion chiffres en mois
ruth
-
Marden Messages postés 1075 Statut Membre -
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
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
-
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 -
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]).