bisestile

verifica se anno inserito da tastiera risulta bisestile
se un anno è bisestile possiede la data di febbraio 2/29/anno
se non è bisestile finisce con la data di febbraio 2/28/anno
viene creata una data con :anno da verificare,febbraio,giorno
Dateserial(anno,2,28): poi viene aggiunto un giorno e calcolato il mese della nuova data:
se il mese risulta ancora 2 (febbraio) allora l'anno è bisestile (2,29,anno) altrimenti
si avrà (3,1,anno) inizio nuovo mese (marzo)

bisestile4.ppt
visualizzazione in listbox invece che in label e semplice modifica del codice

Private Sub CommandButton1_Click()
Rem inserire anno per verificare se è bisestile
Dim a As Integer
Dim provare As Date 'data da verificare
a = TextBox1.Value
provare = DateSerial(a, 2, 28)
Rem se bisestile la data sarà 2/28/anno e aggiungendo 1 giorno > 2/29/a
Rem se non bisestile si passa da 2/28/a >> 3/1/anno
Label1.Caption = (provare & " mese = " & 2)
verifica (a)
Rem aggiunge 1 giorno alla data e verifica il mese:se mese = 2 bisestile
Rem se mese = 3 non bisestile
End Sub

Private Function verifica(anno As Integer) As Boolean
Dim data As Date
Dim mese2 As Integer
data = DateSerial(anno, 2, 28)
data = data + 1
mese2 = Month(data)
If Month(data) = 2 Then
verifica = True
ListBox1.AddItem (data & " bisestile " & Month(data))
Else
verifica = False
ListBox1.AddItem (data & " non bisestile " & Month(data))
End If
End Function

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

Private Sub CommandButton3_Click()
Label1 = ""
TextBox1 = ""
ListBox1 = ""
End Sub