calcola giorni tra due date

calcolo giorni tra due date
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)

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

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

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

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