VISUAL 2005 HOROSCOPO

junior280791
08 de Abril del 2010
hola necesitoayuda con if o con case para validar una fecha mas o menos asi ke koja de 20 de marzo hasta 21 de abril y ni se como hacer.... ayudenme plisssssss

kissman?o
08 de Abril del 2010
Podrias probar con las funciones Day(fecha) y Month(fecha) para ir obteniendo por separado los el dia y el mes de la fecha y a partir de allí testear con If si pertenece al rango que necesitás clasificar.
Sería algo así (para el ejemplo que pusiste):
Dim fecha as Date
Dim dia as Integer
Dim mes as Integer

fecha = Date(txtFecha.Text) ' o como extraigas la fecha.
dia = Day(fecha)
mes = Month(fecha)
If ((dia >= 20) And (mes =3)) Or ((dia <=21) And (mes =4)) Then
... y de aquí en más lo que necesites hacer.
Suerte

junior280791
08 de Abril del 2010
me salva la vida todavia no lo hago pero me das la idea gracias mil gracias