data55bx

data55b.ppt

calcola i minuti tra due orari assegnati da codice :con tempo1, tempo2 #....#
calcola ore e minuti per i due tempi, converte in minuti moltiplicando le ore per 60
e i minuti per 1:poi si sottrae valore minore da valore maggiore
(metodo lungo per usare variabili tipo Date)

 

Private Sub CommandButton1_Click()
Rem calcola minuti tra due tempi assegnati
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 = #10:30:00 AM#
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 = #10:31:00 AM#
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


 

c