AYUDA CON LAS FUNCIONES DE LA FECHA

Rossana
08 de Agosto del 2004

AQUI ALMACENO EL DIA, MES Y AÑO DE LA FECHA ACTUAL EN UNAS VARAIBLES
dia = Day(Now)
Mes = Month(Now)
Año = Year(Now)

EN EL COMBO SE COLOCARON LOS NOMBRES DE LOS MESES y se les asigno un numero para poder hacer la comparación con la veariable mes
Select Case UCase(Cbomessoli)
Case "ENERO"
variable = 1
Case "FEBRERO"
variable = 2
Case "MARZO"
variable = 3
Case "ABRIL"
variable = 4
Case "MAYO"
variable = 5
Case "JUNIO"
variable = 6
Case "JULIO"
variable = 7
Case "AGOSTO"
variable = 8
Case "SEPTIEMBRE"
variable = 9
Case "OCTUBRE"
variable = 10
Case "NOVIEMBRE"
variable = 11
Case "DICIEMBRE"
variable = 12
End Select

AQUI ES DONDE SURGE EL PROBLEMA, PUES NUNCA SE ENTRA AL BLOQUE
añosolicitud = Cboañosoli
diasolicitud = Cbodiasoli

If añosolicitud < Año And variable < Mes And diasolicitud < dia Then
.....
.....

SI ALGUIEN PUEDE VER LO QUE PASA POR FAVOR

Rossana
08 de Agosto del 2004

EN EL CÓDIGO ANTERIOR COLOQUE FUE ESTO
añosolicitud = VAL(Cboañosoli)
diasolicitud = VAL(Cbodiasoli)