HEELPBOOK - VBScript - Valutare Ora e Minuti contemporaneamente per Decision Making #########################################

Uno script di questo tipo potrebbe tornare utile nel caso vi siano progetti (in fase di test o sviluppo, e nel caso, anche in produzione) in cui sia necessario delimitare un certo tipo di operazioni (o azioni) ad una certa fascia oraria, quale puo' essere, come in questo esempio, le 9:15 AM.

Lo script valuta in primis il valore numerico dell'ora, quindi definisce un flag e valuta, in base a quest'ultimo e ad una valutazione numerica dei minuti, se visualizzare un certo messaggio oppure no.

Lo script fa uso di un semplice If annidato per valutare questi casi esposti (valutazione di ora e minuti); lo script o la logica puo' essere sviluppata includendo anche i secondi, ma richiede un ulteriore approccio e valutazioni numeriche (principalmente intervalli) supplementari.

Ecco lo script:


Dim Hourflg
Dim CurrHour
Dim CurrMin
Msgbox ("Questo script di esempio mostrera' la data precedente a quella odierna se l'ora attuale del sistema risulta minore o uguale alle 9:15 AM, altrimenti mostrera' la data odierna.")
CurrHour = Hour(Time)
CurrMin = Minute(Time)
MsgBox ("L'ora e': " & CurrHour)
MsgBox ("I minuti sono: " & CurrMin)
Hourflg = 0

'#### L'esempio contempla, dall'ora attuale, se visualizzare la data odierna o quella precedente"

If CurrHour = 9 Then
Hourflg = 1
Else
If CurrHour < 9 Then
Hourflg = 0
Else
If CurrHour > 9 Then
Hourflg = 2
End If
End If
End If
If Hourflg = 0 And CurrMin >= 0 And CurrMin <= 59 Then
datefoot = Date - 1
msgbox(datefoot)
msgbox(Hourflg)
Else
If Hourflg = 1 And CurrMin <= 15 Then
datefoot = Date - 1
msgbox(datefoot)
msgbox(Hourflg)
Else
If Hourflg = 1 And CurrMin > 15 Then
datefoot = Date
msgbox(datefoot)
Hourflg = 2
msgbox(Hourflg)
Else
If Hourflg = 2 And CurrMin > 0 Then
datefoot = Date
msgbox(datefoot)
msgbox(Hourflg)
End If
End If
End If
End If



############ ARTICLE INFO #############

Article Month: July
Article Date: 19/07/2012
Permalink: http://heelpbook.altervista.org/2012/vbscript-valutare-ora-e-minuti-contemporaneamente-per-decision-making/
Language: Italian

View more articles on: http://www.heelpbook.net/
Follow us on Facebook: http://it-it.facebook.com/pages/HeelpBook/100790870008832
Follow us on Twitter: https://twitter.com/#!/HeelpBook
Follow us on RSS Feed: http://feeds.feedburner.com/Heelpbook
Follow us on Delicious: http://delicious.com/heelpbook
Linkedin: http://it.linkedin.com/pub/stefano-maggi/27/73a/b20