data5x

esempio di variabile tipo Date e calcolo di giorni tra due date assegnate
-data corrente e data precedente da indicare
-tra due date da indicare
funzione = data più recente - data meno recente (visualizzazione in modi diversi)

Private Sub CommandButton1_Click()
Rem uso di variabili tipo date e calcolo differenza giorni tra due date
Rem una assegnabile e data corrente o tra due assegnabili
Dim inizio1, inizio2, inizio3, oggi As Date
Dim giorni As Integer
oggi = Date 'data corrente
inizio1 = #1/1/2010# ' assegno data inizio conteggio m/g/a
giorni = oggi - inizio1 'giorni tra inizio e data corrente
ListBox1.AddItem (inizio1) & " data inizio conteggio"
ListBox1.AddItem (oggi) & " data corrente"
ListBox1.AddItem (giorni) & " giorni trascorsi tra le due date"
ListBox1.AddItem ("-----------------")
inizio2 = #1/1/2009#
ListBox1.AddItem (inizio2) & " altra data inizio conteggio"
ListBox1.AddItem (oggi) & " data corrente"
ListBox1.AddItem (oggi - inizio2) & " giorni trascorsi"
ListBox1.AddItem ("-----------------------")
inizio3 = #1/1/2000#
ListBox1.AddItem (inizio3) & " data inizio conteggio"
ListBox1.AddItem (inizio2) & " data fine conteggio"
ListBox1.AddItem (inizio2 - inizio3) & " giorni tra le due date"
End Sub

vedi data5.ppt