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

[zaza2000]

Originariamente inviato da 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

DateAdd("d", 3, DataRif)

"d" = Cosa aggiornare: "d"(giorni), "m"(mesi), "y"(anni) ...
3 = Quanti aggiungerne
DataRif = Data su cui lavorare

:metallica

[ramengo]

Grazie. mi stai aiutando molto...

E spero l'ultima cosa...

Ora ho la data e l'ora...

Ora per confrontare queste date che mi ricavo del tipo:
11/04/2003 10:00
e
16/04/2003 10:00

faccio la congiuzione di 2 stringhe o esiste una funzione che lo fa da se=??

[zaza2000]

Originariamente inviato da ramengo
Grazie. mi stai aiutando molto...

E spero l'ultima cosa...

Ora ho la data e l'ora...

Ora per confrontare queste date che mi ricavo del tipo:
11/04/2003 10:00
e
16/04/2003 10:00

faccio la congiuzione di 2 stringhe o esiste una funzione che lo fa da se=??

Non capisco cosa vuoi fare...

[ramengo]

ok mi spiego meglio...

ho la necessita di stabilire una data minima e una data massima e verifcare se oggi è compreso in queste 2 date.
Mi serve però di comprendere in questo calcolo anche l'ora.

Per cui:
dataInizio = "04/04/2003 20:00"
DataFine = "11/04/2003 20:00"

Il mio problema consiste nel fatto che ho anche un limite di oprario da considerare...
In questo caso li ore 20:00.

Come posso fare??

[zaza2000]

Originariamente inviato da ramengo
ok mi spiego meglio...

ho la necessita di stabilire una data minima e una data massima e verifcare se oggi è compreso in queste 2 date.
Mi serve però di comprendere in questo calcolo anche l'ora.

Per cui:
dataInizio = "04/04/2003 20:00"
DataFine = "11/04/2003 20:00"

Il mio problema consiste nel fatto che ho anche un limite di oprario da considerare...
In questo caso li ore 20:00.

Come posso fare??

Lo fa da solo, se valorizzi tutto con data e ora.

[ramengo]

Mi spieghi nel dettaglio??

[zaza2000]

Originariamente inviato da ramengo
Mi spieghi nel dettaglio??

Dim DataRif As Date
Dim DataMin As Date
Dim DataMax As Date

DataMin = "04/04/2003 20:00:00"
DataMax = "11/04/2003 20:00:00"

DataRif = 'Data e ora di oggi

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

[ramengo]

Se io metto i valori delle date fissi mi funziona, ma se prooa fare dei calcoli usando la data di oggi + 7 giorni, ecco qua che non funziona più.
Sono costretto per forza a mettere i valori fissi???

non posso renderlo dinamico?
Ecco il codice

Dim DataInizioSett1 As Date
Dim DataFineSett1 As Date

DataInizioSett1 = "04 / 04 / 2003 16.00.00"
DataFineSett1 = "11 / 04 / 2003 15.51.00"


If (Now >= DataInizioSett1) And (Now <= DataFineSett1) Then
MsgBox ("Compreso")
Else
MsgBox ("Non compreso")
End If

[zaza2000]

Originariamente inviato da ramengo
Se io metto i valori delle date fissi mi funziona, ma se prooa fare dei calcoli usando la data di oggi + 7 giorni, ecco qua che non funziona più.
Sono costretto per forza a mettere i valori fissi???

non posso renderlo dinamico?
Ecco il codice

Dim DataInizioSett1 As Date
Dim DataFineSett1 As Date

DataInizioSett1 = "04 / 04 / 2003 16.00.00"
DataFineSett1 = "11 / 04 / 2003 15.51.00"


If (Now >= DataInizioSett1) And (Now <= DataFineSett1) Then
MsgBox ("Compreso")
Else
MsgBox ("Non compreso")
End If

Dim DataInizioSett1 As Date
Dim DataFineSett1 As Date
Dim DataOggi As Date

DataOggi = Now

DataInizioSett1 = "04/04/2003 16.00.00"
DataFineSett1 = "11/04/2003 16.51.00"

If (DataOggi >= DataInizioSett1) And (DataOggi <= DataFineSett1) Then
MsgBox ("Compreso")
Else
MsgBox ("Non compreso")
End If

DataOggi = DateAdd("d", 7, Now)

If (DataOggi >= DataInizioSett1) And (DataOggi <= DataFineSett1) Then
MsgBox ("Compreso")
Else
MsgBox ("Non compreso")
End If

[ramengo]

Perfetto Grazie.


Ciao!