ricerca anno bisestile

utilizzando la funzione DateSerial si richiede al programma di individuare gli anni
bisestili tra due date da indicare:
si assegna l'anno dal quale iniziare (anno1..1950) e quello al quale finire (anno2..2000)
si calcola la differenza tra le due date (anno2-anno1) = 2000-1950 = 50 e si aggiunge 1
per ricavare il numero di ricerche da eseguire con il ciclo For
si assegna con DateSerial la data (anno1/2/29) : se tale data esiste, verrà confermata
e visualizzata con 2/29/anno1 ( e quindi anno1 bisestile):se non esiste verrà visualizzata
la data del giorno e mese successivo con 3/1/anno1 (e quindi anno1 non bisestile)

Private Sub CommandButton1_Click()
Rem ricerca anni bisestile entro limite da indicare
Rem anno1 dal quale iniziare e anno2 al quale finire
Rem eseguire differenza tra anno2 e anno1 per ricavare
Rem numero di ricerche da eseguire con ciclo For
Dim anno1, anno2 As Integer
Dim datax As Date
Dim anno As Integer
Dim k, limite As Integer
anno1 = TextBox1.Text
anno2 = TextBox2.Text
Rem trova numero di ricerche da eseguire
limite = (anno2 - anno1) + 1
Rem assegna anno1 a anno da assegnare a DateSerial
anno = anno1
Rem assegna ad anno con DateSerial una data che verifichi se esiste
Rem il giorno 29 febbraio per l'anno indicato
Rem se esiste, l'anno è bisestile, e compare la data
Rem se non esiste, anno non bisestile, compare la data
Rem del giorno 1/marzo e non 29/febbraio
ListBox1.AddItem ("anno bisestile con data 2/29/anno ")
For k = 1 To limite
datax = DateSerial(anno, 2, 29)
ListBox1.AddItem (datax)
Rem incrementa valore dell'anno da esaminare
anno = anno + 1
Next k
End Sub

Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
ListBox1.Clear
End Sub

vedi bisesto1.ppt

altro esempio bisesto2.htm