[vb6] perche non funziona?

[afrappe]

 Select Case Date
    
        Case Date >= CDate("01/01/" & Year(Now)) And Date <= CDate("28/02/" & Year(Now))
              '1° bimestre            
               sBim = "1"
        Case Date >= CDate("01/03/" & Year(Now)) And Date <= CDate("30/04/" & Year(Now))
                '2° bimestre
                sBim = "2"
    End Select

con la data di oggi "24/03/2005" dovrebbe entrare nel secondo bimestre, ma non lo fa

[LMondi]

Guiarda che è Select Case Date che non funziona (incompleto), perchè con If il codice dà il risultato atteso:

If Date >= CDate("01/01/" & Year(Now)) And Date <= CDate("28/02/" & Year(Now)) Then
'1° bimestre
sBim = "1° bimestre"
TxtDATE1 = sBim
End If
If Date >= CDate("01/03/" & Year(Now)) And Date <= CDate("30/04/" & Year(Now)) Then
'2° bimestre
sBim = "2° bimestre"
TxtDATE1 = sBim
End If

[afrappe]

mitttttticccccoo

[xegallo]

a parte il fatto che

select case date
case date >= ...

da quand'è che si ripete l'argomento di test anche nella condizione

casomai

select case date
case data1 to data2