AYUDA CON LAS FUNCIONES DE LA FECHA
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
EN EL CÓDIGO ANTERIOR COLOQUE FUE ESTO
añosolicitud = VAL(Cboañosoli)
diasolicitud = VAL(Cbodiasoli)