mesiconta2

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

per esempio con date assegnate da codice vedi mesiconta1.htm