minuti trascorsi tra due orari

calcola minuti tra due orari proposti da codice:analitico
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)

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://digilander.libero.it/francescovise/visualpre/data55bx.htm

http://digilander.libero.it/francescovise/visualpre/data55b.ppt

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

nnnn

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...