conta mesi con DateSerial

calcola mesi tra due date con valori inseriti da tastiera
e usando TimeSerial
conteggio dei mesi compresi tra
due date inserite mediante tastiera e create con DateSerial
descrizione dei vari calcoli e loro visualizzazione
mediante funzioni Date determinare anno e mese prima data e
seconda data
calcolare differenza tra due date in anni e ottenere anni
completi sottraendo 2 anni da differenza
moltiplicare per 12 per ottenere mesi in anni interi
determinare numero del mese prima data e seconda data
calcolare mesi della prima data e aggiungerli a quelli della
seconda data e a quelli degli anni interi

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

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

Private Sub CommandButton2_Click()
Rem calcolo dei mesi tra due date da inserire con tastiera
Dim anno1, anno2 As Date
Dim a1, a2, m1, m2, da12 As Integer
Dim mesi1, mesi2, mesida12, mesitotale As Integer
Dim aa1, mm1, gg1, aa2, mm2, gg2 As Integer
aa1 = TextBox1.Value
mm1 = TextBox2.Value
gg1 = TextBox3.Value
aa2 = TextBox4.Value
mm2 = TextBox5.Value
gg2 = TextBox6.Value

anno1 = DateSerial(aa1, mm1, gg1)
anno2 = DateSerial(aa2, mm2, gg2)

a1 = Year(anno1)
a2 = Year(anno2)
m1 = Month(anno1)
m2 = Month(anno2)
da12 = a2 – a1
ListBox1.AddItem ("anno1=" & anno1)
ListBox1.AddItem ("anno2=" & anno2)
ListBox1.AddItem ("anno1=" & a1)
ListBox1.AddItem ("anno2=" & a2)
ListBox1.AddItem ("mese1=" & m1)
ListBox1.AddItem ("mese2=" & m2)
ListBox1.AddItem ("differenza anni = " & da12)
ListBox1.AddItem ("differenza anni interi=" & (da12
– 2))
ListBox1.AddItem ("—————————-")
mesi1 = 13 – m1
mesi2 = m2
mesida12 = (da12 – 2) * 12
mesitotale = mesi1 + mesi2 + mesida12
ListBox1.AddItem ("mesi anno1 =" & mesi1)
ListBox1.AddItem ("mesi anno2 = " & mesi2)
ListBox1.AddItem ("mesi anni interi=" & mesida12)
ListBox1.AddItem ("mesi totali = " & mesitotale)
ListBox1.AddItem ("——————————")
End Sub

Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton4_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
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...