secondi trascorsi tra due orari

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

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

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

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

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...