mesiconta1

conteggio dei mesi compresi tra due date assegnate da codice #...#
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

vedi mesiconta1.ppt

Private Sub CommandButton1_Click()
Rem calcolo dei mesi tra due date assegnate con codice
Dim anno1, anno2 As Date
Dim a1, a2m1, m2, da12 As Integer
Dim mesi1, mesi2, mesida12, mesitotale As Integer
anno1 = #3/20/1990#
anno2 = #5/25/1998#
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

per esmpio con inserimento dati da tastiera mesiconta2.htm