data3x

gestione sintassi variabili tipo Date applicate al tempo
Time, Hour, Minute, Second
creazione di orario con numeri forniti a funzione TimeSerial

Private Sub CommandButton1_Click()
Rem fornisce tempo corrente (ore,minuti,secondi)
ListBox1.AddItem (Time()) & " ore,minuti,secondi"
Rem fornisce ora corrente
ListBox1.AddItem (Hour(Time)) & " ora corrente"
Rem fornisce minuti ora corrente
ListBox1.AddItem (Minute(Time)) & " minuti ora corrente"
Rem fornisce secondi ora corrente
ListBox1.AddItem (Second(Time)) & " secondi ora corrente"
Rem assegna tempo a variabile tipo date
Dim tempo As Date
tempo = TimeSerial(12, 30, 0)
ListBox1.AddItem (tempo) & " tempo assegnato"
ListBox1.AddItem (TimeSerial(12, 30, 0))
ListBox1.AddItem "--------------------------"
ListBox1.AddItem (tempo)
ListBox1.AddItem (Hour(tempo))
ListBox1.AddItem (Minute(tempo))
ListBox1.AddItem (Second(tempo))
End Sub

data3.ppt