seriale3x

gestione variabili tipo Date e creazione di data con DateSerial fornendo tre numeri (anno,mese,giorno)
che saranno usati per diventare una data (mese/giorno/anno) con la sintassi Dateserial(anno,mese,giorno)
es.Dateserial(1999,10,25) diventa data 10/25/1999

creazione di data con TimeSerial(ora,minuti,secondi) : fornire tre numeri nell'ordine, vengono usati per
creare un orario come hh:mm:ss (10,30,20 >>> 10:30:20) formato tipo date

creazione di date e orari usando DateSerial e TimeSerial con numeri inseriti mediante tastiera

vedi seriale3.ppt

Private Sub CommandButton1_Click()
Rem assegnata variabile da usare per inserire data creata con Dateserial
Rem che utilizza tre numeri forniti da tastiera nell'ordine :anno, mese,giorno
Rem fornenddo data formato mese/giorno/anno
Rem orario variabile da usare per inserire orario creato con Timeserial
Rem che utilizza tre numeri forniti da tastiera nell'ordine :ore, minuti,secondi
Rem fornendo orario formato ore:minuti:secondi
Dim assegnata As Date
Dim orario As Date
Dim x, y, z As Integer ' per anno,mese,giorno
Dim h, m, s As Integer ' per ora,minuti,secondi
x = TextBox1.Value
y = TextBox2.Value
z = TextBox3.Value
h = TextBox4.Value
m = TextBox5.Value
s = TextBox6.Value
assegnata = DateSerial(x, y, z)
orario = TimeSerial(h, m, s)
Rem trasformare in data 3 valori inseriti anno, mese,giorno e in orario ore,minuti,secondi
Label1.Caption = assegnata
Label2.Caption = "visualizza giorno :" & Day(assegnata)
Label3.Caption = "visualizza mese :" & Month(assegnata)
Label4.Caption = "visualizza anno :" & Year(assegnata)
Label5.Caption = " orario assegnato " & orario
Label6.Caption = " ore " & Hour(orario)
Label7.Caption = " minuti " & Minute(orario)
Label8.Caption = " secondi " & Second(orario)
End Sub

Private Sub CommandButton2_Click()
rem cancella dati
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
Label7 = ""
Label8 = ""
TextBox1.SetFocus
End Sub