ISNUMERIC |
Est-ce numérique ? |
---|---|
Visual Basic |
Syntaxe
Function IsNumeric(expression) As Boolean |
Paramètres
Nom | Description |
---|---|
expression | Ce paramètre permet d'indiquer l'expression contenant un nombre à traiter. Le paramètre expression peut être n'importe quelle expression. |
Description
Cette fonction permet d'indiquer, si l'expression spécifié, est une valeur numérique.
Remarques
- La fonction IsNumeric renvoie True si l'expression entière est reconnue comme un nombre; sinon, il renvoie False. La fonction IsNumeric renvoie False si l'expression est une expression de date.
- L'exemple suivant utilise la fonction IsNumeric pour déterminer si une variable peut être évaluée comme un nombre :
Dim MyVar, MyCheck
MyVar = 53 ' Attribuer une valeur.
MyCheck = IsNumeric(MyVar) ' Renvoie True.
MyVar = "459.95" ' Attribuer une valeur.
MyCheck = IsNumeric(MyVar) ' Renvoie True.
MyVar = "45 GLADIR" ' Attribuer une valeur.
MyCheck = IsNumeric(MyVar) ' Renvoie False.
Exemple
Voici un exemple d'une utilisation typique de cette fonction :
- Sub Main()
- Dim X
- TableauNombre = Array(10,20,10,4,6,1,5)
- TableauChaine = Array("ABC","DEF","GHI","JKL")
- TableauMixed = Array(10,"A","B",5,"C","D",7)
- Chaine = "DEF"
- Nombre = 15
-
- MsgBox "X = " & IsNumeric(X) & vbCrLf & _
- """15"" = " & IsNumeric("15") & vbCrLf & _
- "Date() = " & IsNumeric(Date()) & vbCrLf & _
- "TableauNombre = " & IsNumeric(TableauNombre) & vbCrLf & _
- "TableauChaine = " & IsNumeric(TableauChaine) & vbCrLf & _
- "TableauMixed = " & IsNumeric(TableauMixed) & vbCrLf & _
- "Chaine = " & IsNumeric(Chaine) & vbCrLf & _
- "Nombre = " & IsNumeric(Nombre) & vbCrLf & _
- "0 = " & IsNumeric(0) & vbCrLf & _
- "Null = " & IsNumeric(Null) & vbCrLf & _
- "Empty = " & IsNumeric(Empty) & vbCrLf & _
- "2000-01-01 = " & IsNumeric("2000-01-01") & vbCrLf & _
- "08-01-01 = " & IsNumeric("08-01-01") & vbCrLf & _
- "74-01-01 = " & IsNumeric("74-01-01") & vbCrLf & _
- "02-02-2001 = " & IsNumeric("02-02-2001") & vbCrLf & _
- "3/21/11 = " & IsNumeric("3/21/11")
- End Sub
on obtiendra le résultat suivant :
X = Vrai"15" = Vrai
Date() = Faux
TableauNombre = Faux
TableauChaine = Faux
TableauMixed = Faux
Chaine = Faux
Nombre = Vrai
0 = Vrai
Null = Faux
Empty = Vrai
2000-01-01 = Faux
08-01-01 = Faux
74-01-01 = Faux
02-02-2001 = Faux
3/21/11 = Faux
Dernière mise à jour : Lundi, le 19 novembre 2012