oradata

gestione variabili tempo e data

Option Explicit

Private Sub CommandButton1_Click()
'(rem variabili tipo data e tempo)
Dim tempo As Date
'(Date() fornisce data corrente giorno/mese/anno)
'(oppure all'americana mese/giorno/anno)
Lista.AddItem (Date)
'(day(date) fornisce giorno data corrente)
Lista.AddItem (Day(Date))
'(month(date) fornisce mese data corrente)
Lista.AddItem (Month(Date))
'(year(date) fornisce anno data corrente)
Lista.AddItem (Year(Date))
'(DateSerial(anno,mese,giorno)assegna data )
Lista.AddItem (#12/31/98#)
Lista.AddItem (DateSerial(1998, 12, 31))
Lista.AddItem (DateSerial(1995, 11, 30))
Lista.AddItem ("----------------------")
'(Time() fornisce tempo corrente ore,minuti,secondi
Lista.AddItem (Time())
'(hour(time) fornisce ora corrente)
Lista.AddItem (Hour(Time))
'(minute(time) fornisce minuti ora corrente)
Lista.AddItem (Minute(Time))
'(second(time) fornisce secondi ora corrente)
Lista.AddItem (Second(Time))
'(TimeSerial(ore,minuti,secondi) assegna tempo)
Lista.AddItem (TimeSerial(16, 30, 50))
tempo = TimeSerial(18, 20, 45)
Lista.AddItem (tempo)
Lista.AddItem (Hour(tempo))
Lista.AddItem (Minute(tempo))
Lista.AddItem (Second(tempo))
End Sub

Private Sub UserForm_Click()

End Sub

gestione data e ora

Option Explicit

Private Sub CommandButton1_Click()
Dim anno As Date
Dim anno1 As Date
Dim tempo As Date
Dim tempo1 As Date

'(tempo da tastiera ore:minuti:secondi)
tempo = TextBox1.Text
ListBox1.AddItem (tempo)
ListBox1.AddItem (Hour(tempo))
ListBox1.AddItem (Minute(tempo))
ListBox1.AddItem (Second(tempo))

'(tempo da codice in programma #ore:minuti:secondi#)
tempo1 = #2:30:00 PM#
ListBox1.AddItem (tempo1)
ListBox1.AddItem (Hour(tempo1))
ListBox1.AddItem (Minute(tempo1))
ListBox1.AddItem (Second(tempo1))
'(tempo da codice con funzione Timeserial(ore,minuti,secondi)
ListBox1.AddItem (TimeSerial(9, 30, 45))
ListBox1.AddItem (Hour(TimeSerial(9, 30, 45)))
ListBox1.AddItem (Minute(TimeSerial(9, 30, 45)))
ListBox1.AddItem (Second(TimeSerial(9, 30, 45)))
'(data inserita da tastiera 12/25/1987 )
anno1 = TextBox2.Text
ListBox1.AddItem (anno1)
ListBox1.AddItem (Year(anno1))
ListBox1.AddItem (Month(anno1))
ListBox1.AddItem (Day(anno1))
'(data inserita da variabile e codice #12/25/1988#)
anno = #12/12/88#
ListBox1.AddItem (anno)
ListBox1.AddItem (Year(anno))
ListBox1.AddItem (Month(anno))
ListBox1.AddItem (Day(anno))
'(data inserita da codice #12/25/1998#)
ListBox1.AddItem (#12/25/98#)
ListBox1.AddItem (Year(#12/25/98#))
ListBox1.AddItem (Month(#12/25/98#))
ListBox1.AddItem (Day(#12/25/98#))
'(data inserita da codice con funzione dateserial(anno,mese,giorno))
ListBox1.AddItem (DateSerial(1998, 12, 25))
ListBox1.AddItem (Year(DateSerial(1998, 12, 25)))
ListBox1.AddItem (Month(DateSerial(1998, 12, 25)))
ListBox1.AddItem (Day(DateSerial(1998, 12, 25)))

End Sub

ritorna