Sintaxis:
IsDate(expresión)
El argumento expresión puede ser cualquier expresión de fecha o expresión de cadena reconocible como una fecha o una hora.
IsDate devuelve True si la expresión es una fecha o se puede convertir en una fecha válida; si no, devuelve False. En Windows, el intervalo de fechas válidas está comprendido entre el 1 de enero de año 100 d.C. y el 31 de diciembre de 9999 d.C.; los intervalos varían de un sistema operativo a otro.
El ejemplo siguiente utiliza la función IsDate para determinar si una expresión se puede convertir en una fecha:
Dim MiFecha, SuFecha, SinFecha, MiComprobacion
MiFecha = "19 de octubre de 1962": SuFecha = #19/10/62#: SinFecha = "Hola"
MiComprobacion = IsDate(MiFecha) ' Devuelve True.
MiComprobacion = IsDate(SuFecha) ' Devuelve True.
MiComprobacion = IsDate(SinFecha) ' Devuelve False.
El ejemplo siguiente utiliza la función isDate para validar los datos introducidos en un formulario y, si estos son correctos, editar un registro en una base de datos.
<%
'Declaro dos variables que en caso de error se mostrarán al usuario
Dim MMerrorti200fechaservido
Dim MMerrorti200horaservido
'Si el usuario ha enviado el formulario entonces
If Request("Submit") <> "" Then
'Si el campo ha sido servido es S' entonces valido la fecha y la hora
If Request.Form("ti200servido")="S" Then
'Creo la variable "fechaservido"
'Le doy el valor recogido por el formulario
Dim fechaservido
fechaservido=Request.Form("ti200fechaservido")
'Compruebo que el valor recogido es una fecha
'En caso contrario doy un valor a "MMerrorti200fechaservido"
If isDate(fechaservido)= False Then
MMerrorti200fechaservido="La fecha introducida no es válida."
Numerrores=1
End if
Dim horaservido
horaservido=Request.Form("ti200horaservido")
If isDate(horaservido) = False Then
MMerrorti200horaservido = "La hora introducida no es válida."
Numerrores=1
End if
End if
'Si no hay errores empiezo a editar la tabla en la base de datos
If Numerrores <>1 Then
Set edit_ti200 = Server.CreateObject("ADODB.Recordset")
....
....
....