data55cx

calcola i minuti tra due orari da inserire con textbox , come tempo1, tempo2
vengono trascurati i secondi:si convertono le ore in minuti moltiplicando per 60
e poi si sottrae dal valore maggiore quello minore
(metodo lungo per usare variabili titpo Date)

Private Sub CommandButton1_Click()
Rem calcola minuti tra due tempi assegnati trascurando secondi
Dim h1, h2, m1, m2, s1, s2 As Date ' calcola ora minuti secondi per due tempi
Dim hm1, mm1, tm1, hm2, mm2, tm2 As Long ' trasforma in minuti
Dim dm, ddm As Integer ' calcola differenza in minuti tra due tempi in due formati
Dim tempo1, tempo2 As Date ' assegna tempo1 e tempo2

Rem assegna orario tempo1 e visualizza
tempo1 = TextBox1.Text
h1 = Hour(tempo1)
m1 = Minute(tempo1)
ListBox1.AddItem (tempo1)
ListBox1.AddItem (h1) & " ore "
ListBox1.AddItem (m1) & " minuti "
Rem trasforma in minuti , visualizza, calcola totale minuti
hm1 = h1 * 60
mm1 = m1
ListBox1.AddItem (hm1) & " minuti"
ListBox1.AddItem (mm1) & " minuti"
tm1 = hm1 + mm1
ListBox1.AddItem ("-------------")
ListBox1.AddItem ("minuti totale=") & " " & tm1
ListBox1.AddItem ("--------------------")
Rem assegna orario tempo2 e visualizza
tempo2 = TextBox2.Text
h2 = Hour(tempo2)
m2 = Minute(tempo2)
s2 = Second(tempo2)
ListBox1.AddItem (tempo2)
ListBox1.AddItem (h2) & " ore "
ListBox1.AddItem (m2) & " minuti "
Rem trasforma in minuti , visualizza, calcola totale minuti
hm2 = h2 * 60
mm2 = m2
ListBox1.AddItem (hm2) & " minuti"
ListBox1.AddItem (mm2) & " minuti"
tm2 = hm2 + mm2
ListBox1.AddItem ("-------------")
ListBox1.AddItem ("minuti totale=") & " " & tm2
ListBox1.AddItem ("----------------")
Rem calcola differenza in secondi con due formati e visualizza
dm = tm2 - tm1
ListBox1.AddItem (" differenza in minuti =" & dm)
ddm = (h2 * 60 + m2) - (h1 * 60 + m1)
ListBox1.AddItem ("---------------------")
ListBox1.AddItem (" differenza in minuti= " & ddm)
End Sub