calcola mesi tra due date

calcola mesi tra due date inserite da tastiera
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

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

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

 

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