Syntax

IsDate(expression)

Description

Returns True if expression can be legally converted to a date; returns False otherwise.

Example

Sub Main()
  Dim a As Variant
Retry:
  a = InputBox("Enter a date.","Enter Date")
  If IsDate(a) Then
    MsgBox Format(a,"long date")
  Else
    Msgbox "Not quite, please try again!"
    Goto Retry
  End If
End Sub

See Also

Variant (data type); IsEmpty (function); IsError (function); IsObject (function); VarType (function); IsNull (function).

I