Section courante

A propos

Section administrative du site

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

Exemple

Voici un exemple d'une utilisation typique de cette fonction :

  1. Sub Main()
  2.  Dim X
  3.  TableauNombre = Array(10,20,10,4,6,1,5)
  4.  TableauChaine = Array("ABC","DEF","GHI","JKL")
  5.  TableauMixed = Array(10,"A","B",5,"C","D",7)
  6.  Chaine = "DEF"
  7.  Nombre = 15
  8.  
  9.  MsgBox "X = " & IsNumeric(X) & vbCrLf & _
  10.         """15"" = " & IsNumeric("15") & vbCrLf & _
  11.         "Date() = " & IsNumeric(Date()) & vbCrLf & _
  12.         "TableauNombre = " & IsNumeric(TableauNombre) & vbCrLf & _
  13.      "TableauChaine = " & IsNumeric(TableauChaine) & vbCrLf & _
  14.      "TableauMixed = " & IsNumeric(TableauMixed) & vbCrLf & _
  15.      "Chaine = " & IsNumeric(Chaine) & vbCrLf & _
  16.      "Nombre = " & IsNumeric(Nombre) & vbCrLf & _
  17.       "0 = " & IsNumeric(0) & vbCrLf & _
  18.       "Null = " & IsNumeric(Null) & vbCrLf & _
  19.       "Empty = " & IsNumeric(Empty) & vbCrLf & _
  20.       "2000-01-01 = " & IsNumeric("2000-01-01") & vbCrLf & _
  21.       "08-01-01 = " & IsNumeric("08-01-01") & vbCrLf & _
  22.       "74-01-01 = " & IsNumeric("74-01-01") & vbCrLf & _
  23.       "02-02-2001 = " & IsNumeric("02-02-2001") & vbCrLf & _
  24.       "3/21/11 = " & IsNumeric("3/21/11") 
  25. 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