Section courante

A propos

Section administrative du site

ISDATE

Est-ce une date ?
Visual Basic

Syntaxe

Function IsDate(madate As String) As Boolean

Paramètres

Nom Description
madate Ce paramètre permet d'indiquer la chaîne de caractères contenant la date. Le paramètre madate peut être n'importe quelle expression de date ou expression de chaîne de caractères reconnaissable comme date ou heure.

Description

Cette fonction permet de vérifier que la chaîne de caractères contient une date valide.

Remarques

Exemple

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

  1. Sub Main()
  2.  Dim Chaine As String
  3.  Dim Nombre As Integer
  4.  TableauNombre = Array(10,20,10,4,6,1,5)
  5.  TableauChaine = Array("ABC","DEF","GHI","JKL")
  6.  TableauMixed = Array(10,"A","B",5,"C","D",7)
  7.  Chaine = "DEF"
  8.  Nombre = 15
  9.  
  10.  MsgBox "Date() = " & IsDate(Date$()) & vbCrLf & _
  11.         "TableauNombre = " & IsDate(TableauNombre) & vbCrLf & _
  12.         "TableauChaine = " & IsDate(TableauChaine) & vbCrLf & _
  13.         "TableauMixed = " & IsDate(TableauMixed) & vbCrLf & _
  14.         "Chaine = " & IsDate(Chaine) & vbCrLf & _
  15.         "Nombre = " & IsDate(Nombre) & vbCrLf & _
  16.         "2000-01-01 = " & IsDate("2000-01-01") & vbCrLf & _
  17.         "08-01-01 = " & IsDate("08-01-01") & vbCrLf & _
  18.         "74-01-01 = " & IsDate("74-01-01") & vbCrLf & _
  19.         "02-02-2001 = " & IsDate("02-02-2001") & vbCrLf & _
  20.         "3/21/11 = " & IsDate("3/21/11")
  21. End Sub

on obtiendra le résultat suivant :

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


Dernière mise à jour : Lundi, le 19 novembre 2012