28/07/2011, 12:24
|
 | | | Fecha de Ingreso: marzo-2007
Mensajes: 307
Antigüedad: 17 años, 2 meses Puntos: 17 | |
| Respuesta: Búsqueda entre 2 fechas
como lo haria yo
en el lostfocus del text
dim fechaini as date
dim fechatope as date
if isdate(text) then 'valido ke ingreo una fecha
fechaini="16/06/2006"
fechatope=date()
if text<fechaini and text>fechatope then
xxx=msgbox("Fecha fuera de rango",vbinformation,"Atención")
text.setfocus
else
aca coloca el codigo ke tiene que ejecutarse cuando la fecha esta ok.
endif
else
xxx=msgbox("Dato ingresado no es fecha",vbinformation,"Atención")
text.setfocus
endif |