VB: Controllare che una data sia compresa tra un intervallo di 2 date

[ramengo]

Ciao a tutti,
devo controllare che una data sia compresa tra un intervallo di 2 date prestabilite per dare validità o meno a una certa operazione:

Ad esempio se l'intervallo di è 11/04/2003 - 15/04/2003 il mio programma una operazione con data 20/03/2003 non deve accettarla.

Mi date una mano con la comparazione delle date?

Grazie

[zaza2000]

Originariamente inviato da ramengo
Ciao a tutti,
devo controllare che una data sia compresa tra un intervallo di 2 date prestabilite per dare validità o meno a una certa operazione:

Ad esempio se l'intervallo di è 11/04/2003 - 15/04/2003 il mio programma una operazione con data 20/03/2003 non deve accettarla.

Mi date una mano con la comparazione delle date?

Grazie

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

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


Così ti va bene?

[ramengo]

Grazie ora provo.

Ti dico subito che ho bisogno di controllare anche il giorno della settimana e l'ora...

Esiste un mdo per estrarre questi due dati?

Ad esempio SE sono le 1:00 del 21 marzo "E' primavera"

Si può??

[zaza2000]

Originariamente inviato da ramengo
Grazie ora provo.

Ti dico subito che ho bisogno di controllare anche il giorno della settimana e l'ora...

Esiste un mdo per estrarre questi due dati?

Ad esempio SE sono le 1:00 del 21 marzo "E' primavera"

Si può??

Dim Data As Date
Dim DataOggi As Date

Data = "11/04/2003 12:50:00"
DataOggi = "11/05/2003 11:50:00"

If Data > DataOggi Then
    MsgBox ("pippo")
End If

:metallica

[ramengo]

Grazie,
ci sto lavorando, devo fare un casino di controlli..
Estrarre il Giorno (lunedi, Martedi..) si puà fare=?

[zaza2000]

Originariamente inviato da ramengo
Grazie,
ci sto lavorando, devo fare un casino di controlli..
Estrarre il Giorno (lunedi, Martedi..) si puà fare=?

    Public Enum EnGiorno
        Lunedi = 1
        martedi
    End Enum

Private Sub Form_Load()

    Dim Data As Date
       
    Dim Giorno As EnGiorno
    
    Data = "01/04/2003 12:50:00"

    Giorno = Weekday(Data, vbMonday)

    Select Case Giorno
    
    Case 1
         MsgBox ("Lunedì")
    
    Case 2
         MsgBox ("Martedì")
    
    
    End Select

End Sub

[ramengo]

Grazie...

Ora metto insieme il tuto e ti faccio sapere.....

Speriamo bene!

[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=?

[zaza2000]

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=?

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.

[ramengo]

Io ho usato AND come condizione.

Comunque ho visto che con la funzione DateValue possibile fare delle operazioni.

Ad esempio dateValue(oggi + 7).

Però non mi calcola l'ora...
Come posso fare?

Io ho bisogno che la data dia in formato
11/04/2003 13:00

e che con una operazione mi venga posticipata di n giorni