DateSerial e Timeserial

creazione di data  fornendo da codice 3 numeri a Dateserialcreazione di orario  fornendo da codice 3 numeri a Timeserialcreazione di data,orario  fornendo da tastiera 3 numeri a Dateserial e tre numeri a Timeserialhttp://digilander.libero.it/francescovise/visualpre/visapre.htmhttp://digilander.libero.it/francescovise/visualpre/seriale2x.htm  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/1999creazione 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  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)end sub http://digilander.libero.it/francescovise/visualpre/seriale2.ppt