bisesto2

simile a bisesto1 , con visualizzazione separata degli anni bisestili (listbox2)
e anni non bisestili (listbox1)

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 non bisestile con data 3/1/anno ")
ListBox2.AddItem ("anno bisestile con data 2/29/anno ")
Rem si visualizzano separatamente anni bisestili e non bisestili
Rem in listbox1 (non) e listbox2 (bisestili)
For k = 1 To limite
datax = DateSerial(anno, 2, 29)
Rem verifica se il mese della data è febbraio 2 e quindi bisestile
If Month(datax) = 2 Then
ListBox2.AddItem (datax)
Rem altrimenti se non bisestile visualizza in listbox1
Else
ListBox1.AddItem (datax)
End If
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
ListBox2.Clear
End Sub

vedi bisesto2.ppt