tempiconta

descrizione elaborazione dati con Date per calcolo date e tempi
differenza in giorni e anni tra due date assegnate da codice
differenza in ore, minurti, secondi tra due orari assegnati da codice

vedi tempiconta.ppt

Private Sub CommandButton1_Click()
Rem calcoli semplificati usanto funzioni tipo Date
Rem differenza in giorni e anni tra due date
Rem differenza in ore minuti,secondi tra due orari

Dim anno1, anno2, orario1, orario2 As Date
Dim giorni, a1, a2, da, dh, h1, h2 As Integer
Dim ds, dm, differenza As Double
Dim dsi, dmi As Integer
Const ks = 1.15740741499E-05
Const km = 0.000694444445
anno1 = #1/1/2000#
anno2 = #1/1/2001#
a1 = Year(anno1)
a2 = Year(anno2)
da = a2 - a1
giorni = anno2 - anno1
ListBox1.AddItem ("differenza in anni = " & " tra " & anno2 & " " & anno1 & " = " & da)
ListBox1.AddItem (" giorni tra due anni :" & anno1 & " " & anno2 & " = " & giorni)
ListBox1.AddItem ("----------------------------------------")
orario1 = #10:30:00 AM#
orario2 = #12:00:00 PM#
differenza = orario2 - orario1
h1 = Hour(orario1)
h2 = Hour(orario2)
dh = h2 - h1
ds = differenza / ks
dm = differenza / km
dsi = Int(ds)
dmi = Int(dm)
ListBox1.AddItem ("orario1= " & orario1)
ListBox1.AddItem ("orario2=" & orario2)
ListBox1.AddItem ("differenza tra due orari=" & differenza)
ListBox1.AddItem ("differenza in secondi=" & ds & " = " & dsi)
ListBox1.AddItem ("differenza in minuti=" & dm & " = " & dmi)
ListBox1.AddItem ("differenza in ore =" & dh)
ListBox1.AddItem ("---------------------------------------")
End Sub