Section courante

A propos

Section administrative du site

ISDATE

 Est-ce une date ?
LotusScript

Syntaxe

Function IsDate(expr As Variant) As Integer

Paramètres

Nom Description
expr Ce paramètre permet d'indiquer la chaine de caractères contenant la date

Description

Cette fonction indique s'il s'agit d'une date.

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 "Date() = " & Isdate(Date$()) 
  33.      Print "TableauNombre = " & Isdate(TableauNombre)
  34.      Print "TableauChaine = " & Isdate(TableauChaine)
  35.      Print "TableauMixed = " & Isdate(TableauMixed)
  36.      Print "Chaine = " & Isdate(Chaine)
  37.      Print "Nombre = " & Isdate(Nombre)
  38.      Print "2000-01-01 = " & Isdate("2000-01-01")
  39.      Print "08-01-01 = " & Isdate("08-01-01")
  40.      Print "74-01-01 = " & Isdate("74-01-01")
  41.      Print "02-02-2001 = " & Isdate("02-02-2001")
  42.      Print "3/21/11 = " & Isdate("3/21/11")
  43. End Sub

on obtiendra le résultat suivant :

Date() = True
TableauNombre = False
TableauChaine = False
TableauMixed = False
Chaine = False
Nombre = False
2000-01-01 = True
08-01-01 = True
74-01-01 = True
02-02-2001 = False
3/21/11 = False

Voir également

Langage de programmation - LotusScript - Référence de procédures et fonctions - CDAT
Langage de programmation - LotusScript - Référence de procédures et fonctions - ISNUMERIC
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