Originariamente inviato da ramengo
Sucsa...
ma il controllo sulla data compresa nell'intervallo non mi funziona bene...


dim DataRif as date
dim DataMin as date
dim DataMax as date

if (DataRif > DtMax) Or (DataRif < DtMin) Then
msgbox("Errore")
End if

Come mai=?
codice:
Dim DataRif As Date
Dim DataMin As Date
Dim DataMax As Date

DataMin = "11/02/2003 11:50:00"
DataMax = "11/04/2003 11:50:00"

DataRif = "11/02/2003 11:50:01"

If (DataRif > DataMax) Or (DataRif < DataMin) Then
    MsgBox ("Errore")
Else
    MsgBox ("Ok")
End If

DataRif = "11/02/2003 11:49:59"

If (DataRif > DataMax) Or (DataRif < DataMin) Then
    MsgBox ("Errore")
Else
    MsgBox ("Ok")
End If
Prova così, se non va ancora, dimmi di preciso che errore ti da o cosa non va bene.