seriale2x

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

vedi seriale2.ppt

Private Sub CommandButton1_Click()
Rem variabile da usare per inserire orario creato con Timeserial
Rem che utilizza tre numeri forniti nell'ordine :ora, minuti,secondi
Rem in orario formato ora/minuti/secondi
Dim assegnato As Date
assegnato = TimeSerial(10, 30, 20)
Rem trasformare in orario 3 valori inseriti ore,minuti,secondi
Rem es.10,30,20 diventa 10:30:20
Label4.Caption = "timeserial(10,30,20) = " & TimeSerial(10, 30, 20)
Label5.Caption = "visualizza ore :" & Hour(TimeSerial(10, 30, 20))
Label7.Caption = "visualizza minuti :" & Minute(TimeSerial(10, 30, 20))
Label8.Caption = "visualizza secondi :" & Second(TimeSerial(10, 30, 20))
Label9.Caption = " data da creare con tre numeri 10,30,20 diventa :" & assegnato
Label10.Caption = "ore " & Hour(assegnato) & " minuti " & Minute(assegnato) & " secondi " & Day(assegnato)