Foros del Web - Ver Mensaje Individual

Cauchemar · #6 (**permalink**) 25/06/2003, 01:24

Aqui está en VBScript

Código:

function MiraFecha(fecha)
 If len(fecha)=10 then
  If InStr(fecha,"/")>0 then
     If isdate(fecha) then
       MiraFecha=1
     else
       MiraFecha=0
     end if
  else
    MiraFecha=0
  end if
 else 
   if len(fecha)>0 then
     MiraFecha=0
   end if
 end if
end function

Esta función comprueba que la fecha sea del formato DD/MM/AAAA

lo que a ti te importa es la parte de

Código:

If isdate(fecha) then
       MiraFecha=1  'Es fecha valida
 else
       MiraFecha=0  ' Es fecha valida
end if