minuti

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

vedi 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

per esempio con metodo più lungo, elementare vedi data55bx.htm data55cx.htm