data55ax

calcola i secondi tra due orari assegnati da codice con tempo1, tempo2 #.....#
metodo moto lungo per usare variabili tipo Date temporali:
si calcolano ore, minuti, secondi per ogni tempo e si convertono in secondi
moltiplicandoli per 3600, 60, 1e poi si esegue la sottrazione tra i due
valori calcolati (maggiore-minore)

vedi data55a

Private Sub CommandButton1_Click()
Rem calcola secondi tra due tempi assegnati
Dim h1, h2, m1, m2, s1, s2 As Date ' calcola ora minuti secondi per due tempi
Dim hs1, ms1, ss1, ts1, hs2, ms2, ss2, ts2 As Long ' trasforma in secondi
Dim ds, dds As Integer ' calcola differenza in secondi tra due tempi in due formati
Dim tempo1, tempo2 As Date ' assegna tempo1 e tempo2
Rem assegna orario tempo1 e visualizza
tempo1 = #10:30:00 AM#
h1 = Hour(tempo1)
m1 = Minute(tempo1)
s1 = Second(tempo1)
ListBox1.AddItem (tempo1)
ListBox1.AddItem (h1) & " ore "
ListBox1.AddItem (m1) & " minuti "
ListBox1.AddItem (s1) & " secondi"
Rem trasforma in secondi , visualizza, calcola totale secondi
hs1 = h1 * 3600
ms1 = m1 * 60
ss1 = s1
ListBox1.AddItem (hs1) & " secondi"
ListBox1.AddItem (ms1) & " secondi"
ListBox1.AddItem (ss1) & " secondi"
ts1 = hs1 + ms1 + ss1
ListBox1.AddItem ("-------------")
ListBox1.AddItem ("secondi totale=") & " " & ts1
ListBox1.AddItem ("--------------------")
Rem assegna orario tempo2 e visualizza
tempo2 = #10:31:00 AM#
h2 = Hour(tempo2)
m2 = Minute(tempo2)
s2 = Second(tempo2)
ListBox1.AddItem (tempo2)
ListBox1.AddItem (h2) & " ore "
ListBox1.AddItem (m2) & " minuti "
ListBox1.AddItem (s2) & " secondi"
Rem trasforma in secondi , visualizza, calcola totale secondi
hs2 = h2 * 3600
ms2 = m2 * 60
ss2 = s2
ListBox1.AddItem (hs2) & " secondi"
ListBox1.AddItem (ms2) & " secondi"
ListBox1.AddItem (ss2) & " secondi"
ts2 = hs2 + ms2 + ss2
ListBox1.AddItem ("-------------")
ListBox1.AddItem ("secondi totale=") & " " & ts2
ListBox1.AddItem ("----------------")
Rem calcola differenza in secondi con due formati e visualizza
ds = ts2 - ts1
ListBox1.AddItem (" differenza in secondi =" & ds)
dds = (h2 * 3600 + m2 * 60 + s2) - (h1 * 3600 + m1 * 60 + s1)
ListBox1.AddItem ("---------------------")
ListBox1.AddItem (" differenza in secondi= " & dds)
End Sub