calcolo tempi con TimeSerial

calcola minuti e secondi tra due orari inseriti da tastiera
usando TimeSerial
calcolo del tempo
trascorso in secondi e minuti tra due orari inseriti come numeri
da tastiera
e trasformati in dati tipo Date dalla funzione TimeSerial
la differenza in tempo viene poi divisa per due diverse costanti
per ottenere i secondi e i minuti

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/minuti.htm

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

Private Sub CommandButton1_Click()
Const ks = 1.15740740741499E-05 ‘ costante per conversione in
secondi
Const km = 0.000694444445 ‘ costante per conversione in minuti
Dim ora1, ora2 As Date
Dim differenzas, differenzam As Double
Dim calcolas1, calcolam1, calcolas2, calcolam2 As Double
Dim s, m As Integer
Dim h1, m1, s1, h2, m2, s2 As Integer
h1 = TextBox1.Value
m1 = TextBox2.Value
s1 = TextBox3.Value
h2 = TextBox4.Value
m2 = TextBox5.Value
s2 = TextBox6.Value

ora1 = TimeSerial(h1, m1, s1)
ora2 = TimeSerial(h2, m2, s2)

Label8.Caption = (ora1 & " " & ora2)
differenza = ora2 – ora1
calcolas1 = differenza / 1.15740740741499E-05
calcolas2 = differenza / ks
calcolam1 = differenza / 0.000694444445
calcolam2 = differenza / km
Label1.Caption = calcolas1
Label2.Caption = calcolas2
Label3.Caption = calcolam1
Label4.Caption = calcolam2
s = Int(calcolas1)
m = Int(calcolam1)
Label9.Caption = s
Label10.Caption = m
End Sub

Private Sub CommandButton2_Click()
Label1 = ""
Label2 = ""
Label3 = ""
Label4 = ""
Label5 = ""
Label6 = ""
Label7 = ""
Label8 = ""
Label9 = ""
Label10 = ""
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""

End Sub

About these ads

Informazioni su fumarino

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

Rispondi

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