codice:
 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