ricerca su anno bisestile

esercitazione con funzione DateSerial , Month e visual basic (variante)applicata a ricerca e controllo anno bisestilenota: se divisibile per 4 , e nel caso sia anno secolare,che termina con 00, risulta divisibile anche per 400 http://digilander.libero.it/francescovise/visualpre/visapre.htmhttp://digilander.libero.it/francescovise/visualpre/bisestile1.htmhttp://digilander.libero.it/francescovise/visualpre/bisestile2.htmhttp://digilander.libero.it/francescovise/visualpre/bisestile4.ppt  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