calcolo date e tempi con vba

sintesi per calcolo date e tempi con valori assegnati da codice
e uso di variabili Date
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

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

http://digilander.libero.it/francescovise/visualpre/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

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