IsDate( )

Esta función devuelve un valor lógico indicando si la expresión que pasamos como parámetro contiene una fecha o una cadena que pueda ser convertida a fecha. Ver el Código fuente 178.

Public Sub Main()
Dim Valor As Object
Dim UnaFecha As Date
Console.WriteLine("Introducir una fecha")
Valor = Console.ReadLine()
If IsDate(Valor) Then
UnaFecha = Valor
Console.WriteLine("La fecha es: {0}", UnaFecha)
Else
Console.WriteLine("El valor introducido no es una fecha")
End If
Console.ReadLine()
End Sub

Código fuente 178