gestione dui funzioni 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/seriale1x.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/1999 Private Sub CommandButton1_Click() Rem variabile da usare per inserire data creata con Dateserial Rem che utilizza tre numeri forniti nell'ordine :anno, mese,giorno Rem in data formato mese/giorno/anno Dim assegnata As Date assegnata = DateSerial(2005, 8, 20) Label1.Caption = "date = " & Date & " time = " & Time Label2.Caption = "day(date) = " & Day(Date) & " mese = " & Month(Date) & " anno = " & Year(Date) Label6.Caption = " month(date) = " & Month(Date) Label3.Caption = "hour(time) = " & Hour(Time) & " minute(time) = " & Minute(Time) & " second(time) = " & Second(Time) Rem trasformare in data 3 valori inseriti anno, mese,giorno Rem es.2000,5,30 diventa 5/30/2000 Label4.Caption = "dateserial(2000,5,30) = " & DateSerial(2000, 5, 30) Label5.Caption = "visualizza giorno :" & Day(DateSerial(2000, 5, 30)) Label7.Caption = "visualizza mese :" & Month(DateSerial(2000, 5, 30)) Label8.Caption = "visualizza anno :" & Year(DateSerial(2000, 5, 30)) Label9.Caption = " data da creare con tre numeri 2005,8,20 diventa :" & assegnata Label10.Caption = "anno " & Year(assegnata) & " mese " & Month(assegnata) & " giorno " & Day(assegnata) End Subhttp://digilander.libero.it/francescovise/visualpre/seriale1.ppt