vba e uso di funzioni DateSerial e Timeserial

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/seriale3x.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

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


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

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...