VBA controllo orario

[gattopardo55]

devo fare un semplice controllo sull orario
è if in cui fare il confronto tra lora attuale e le 14:30



nelle sub routine ho inserito
-------------------------------------------------------------

if time > 14.30 then
MSGBOX (" è presto")
exit sub

else :MSGBOX ("OK")

end if

---------------------------------------------------

evidentemente devo assegnare delle variabili all ORA per poter fare il confronto ...

GRAZIE

[ricky53]

Caio,
utilizza una cella di appoggio in cui scriverai l'ora da confrontare con "time"
la macro diventa:

Codice: Seleziona tutto

if time > Tua cella then
MSGBOX (" è presto")
exit sub

else :MSGBOX ("OK")

end if


Sei sicura di questa istruzione:

Codice: Seleziona tutto

if time > 14.30 then

è giusto che
se "time" è "maggiore" di 14.30
venga dato il messaggio "E' presto" ???

Ciao da Ricky53

[gattopardo55]

Caio,
utilizza una cella di appoggio in cui scriverai l'ora da confrontare con "time"
la macro diventa:

Codice: Seleziona tutto

if time > Tua cella then
MSGBOX (" è presto")
exit sub

else :MSGBOX ("OK")

end if


Sei sicura di questa istruzione:

Codice: Seleziona tutto

if time > 14.30 then

è giusto che
se "time" è "maggiore" di 14.30
venga dato il messaggio "E' presto" ???

Ciao da Ricky53

perfetto funziona
'Recupera i dati da internet


Sub Aggiorna_query()
'controlla se i dati sono gia aggiornati

Sheets("servizio").Select

If Cells(1, 1) = Cells(1, 5) Then

Sheets("dati").Select
MsgBox ("dati_query_gia_aggiornati")


Exit Sub
End If

'controlla che siano almeno le 14.30
If Time() < Cells(4, 5) Then
MsgBox (" è presto NON sono ancora _le 14.30")
Exit Sub

Else: MsgBox ("OK")
End If

grazie
'aggiorna PutStoxx
Sheets("PUT").Activate
With Application
.DecimalSeparator = "."
.ThousandsSeparator = ","
.UseSystemSeparators = False
End With