differenza in minuti e secondi

determinazione della differenza di tempo in secondi, minuti, trascorsa tra due orari assegnati da codice con #...#
si esegue la differenza tra i due orari
si divide per una costante che fornisce la differenza in secondi
si divide per un'altra costante che fornisce la differenza in minuti
si visualizza risultato anche usando la funzione Int per eliminare decimali

vedi secondi.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
ora1 = #10:10:00 AM#
ora2 = #10:20:00 AM#
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

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