IsDate Function

Syntax:

IsDate(expr)

Description: Returns the True if expr is a valid date.

Parameter	Description
expr	A variant expression to test for a valid date.

Example:

Sub Main
  Dim X As Variant
  X = 1
  Debug.Print IsDate(X) 'False
  X = Now
  Debug.Print IsDate(X) 'True
End Sub