datatempo2

gestione funzioni tempo e data

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

ritorna