Section courante

A propos

Section administrative du site

ISNUMERIC

 Est-ce un nombre ?
LotusScript

Syntaxe

Function IsNumeric(expr As Variant) As Integer

Paramètres

Nom Description
expr Ce paramètre permet d'indiquer l'expression contenant un nombre à traiter.

Description

Cette fonction indique s'il s'agit d'un nombre.

Exemple

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

  1. Sub Main()
  2.      Dim X
  3.      Dim TableauNombre(1 To 7) As Integer
  4.      TableauNombre(1) = 10
  5.      TableauNombre(2) = 20
  6.      TableauNombre(3) = 10
  7.      TableauNombre(4) = 4
  8.      TableauNombre(5) = 6
  9.      TableauNombre(6) = 1
  10.      TableauNombre(7) = 5
  11.      
  12.      Dim TableauChaine(1 To 4) As String
  13.      
  14.      TableauChaine(1) = "ABC"
  15.      TableauChaine(2) = "DEF"
  16.      TableauChaine(3) = "GHI"
  17.      TableauChaine(4) = "JKL"
  18.      
  19.      Dim TableauMixed(1 To 7) As Variant
  20.      
  21.      TableauMixed(1) = 10
  22.      TableauMixed(2) = "A"
  23.      TableauMixed(3) = "B"
  24.      TableauMixed(4) = 5
  25.      TableauMixed(5) = "C"
  26.      TableauMixed(6) = "D"
  27.      TableauMixed(7) = 7
  28.      
  29.      Chaine = "DEF"
  30.      Nombre = 15
  31.      
  32.      Print "X = " & Isnumeric(X)
  33.      Print """15"" = " & Isnumeric("15")
  34.      Print "Date() = " & Isnumeric(Date())
  35.      Print "TableauNombre = " & Isnumeric(TableauNombre)
  36.      Print "TableauChaine = " & Isnumeric(TableauChaine)
  37.      Print "TableauMixed = " & Isnumeric(TableauMixed)
  38.      Print "Chaine = " & Isnumeric(Chaine)
  39.      Print "Nombre = " & Isnumeric(Nombre)
  40.      Print "0 = " & Isnumeric(0)
  41.      Print "Null = " & Isnumeric(Null)
  42.      Print "Empty = " & Isnumeric(Empty)
  43.      Print "2000-01-01 = " & Isnumeric("2000-01-01")
  44.      Print "08-01-01 = " & Isnumeric("08-01-01")
  45.      Print "74-01-01 = " & Isnumeric("74-01-01")
  46.      Print "02-02-2001 = " & Isnumeric("02-02-2001")
  47.      Print "3/21/11 = " & Isnumeric("3/21/11")  
  48. End Sub

on obtiendra le résultat suivant :

X = True
"15" = True
Date() = True
TableauNombre = False
TableauChaine = False
TableauMixed = False
Chaine = False
Nombre = True
0 = True
Null = False
Empty = True
2000-01-01 = False
08-01-01 = False
74-01-01 = False
02-02-2001 = False
3/21/11 = False

Voir également

Langage de programmation - LotusScript - Référence de procédures et fonctions - ISDATE
Langage de programmation - LotusScript - Référence de procédures et fonctions - ISEMPTY
Langage de programmation - LotusScript - Référence de procédures et fonctions - ISNULL
Langage de programmation - LotusScript - Référence de procédures et fonctions - ISSCALAR
Articles - Les géants de l'informatique - IBM

Dernière mise à jour : Jeudi, le 8 janvier 2015