sperimentare

creazione di data  fornendo da codice 3 numeri a Dateserial
creazione di orario  fornendo da codice 3 numeri a Timeserial
creazione di data,orario  fornendo da tastiera 3 numeri
a Dateserial e tre numeri a Timeserial

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://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 Sub

http://digilander.libero.it/francescovise/visualpre/seriale1.ppt