variabili tempo
pvariatempo1

esempio di VBA con powerpoint per confrontare con VBA su excel
esci con vbavarie.htm

pvariatempo1.ppt

Option Explicit

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

Private Sub UserForm_Click()

End Sub

pvariatempo2.ppt

Option Explicit

Private Sub CommandButton1_Click()
Label1.Caption = "date = " & Date & " time = " & Time
Label4.Caption = "dateserial(date) = " & DateSerial(2002, 2, 9)
Label6.Caption = " month(date) = " & Month(Date)
Label5.Caption = DateSerial(2002, 5, 12) & " day(date) = " & Day(Date)
Label3.Caption = "hour(time) = " & Hour(Time) & " minute(time) = " & Minute(Time) & " second(time) = " & Second(Time)
Label2.Caption = "day(date) = " & Day(Date) & " mese = " & Month(Date) & " anno = " & Year(Date)
End Sub

Private Sub Label3_Click()

End Sub

Private Sub UserForm_Click()

End Sub

pvariatempo3.ppt

Option Explicit

Private Sub CommandButton1_Click()
Dim anno As Date
Dim anno1 As Date
Dim tempo As Date
Dim tempo1 As Date
ListBox1.AddItem ("..........")
'(tempo da tastiera ore:minuti:secondi)
tempo = TextBox1.Text
ListBox1.AddItem (tempo)
ListBox1.AddItem (Hour(tempo))
ListBox1.AddItem (Minute(tempo))
ListBox1.AddItem (Second(tempo))
ListBox1.AddItem ("..........")
'(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))
ListBox1.AddItem ("..........")
'(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)))
ListBox1.AddItem ("..........")
'(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))
ListBox1.AddItem ("..........")
'(data inserita da variabile e codice #12/25/1988#)
anno = #12/12/1988#
ListBox1.AddItem (anno)
ListBox1.AddItem (Year(anno))
ListBox1.AddItem (Month(anno))
ListBox1.AddItem (Day(anno))
ListBox1.AddItem ("..........")
'(data inserita da codice #12/25/1998#)
ListBox1.AddItem (#12/25/1998#)
ListBox1.AddItem (Year(#12/25/1998#))
ListBox1.AddItem (Month(#12/25/1998#))
ListBox1.AddItem (Day(#12/25/1998#))
ListBox1.AddItem ("..........")
'(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


Private Sub UserForm_Click()

End Sub