sperimentare

esercitazione con funzione DateSerial , Month e
applicata a ricerca e controllo anno bisestile
nota: 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.htm
http://digilander.libero.it/francescovise/visualpre/bisestile1.htm

presentazione ppt
http://digilander.libero.it/francescovise/visualpre/bisestile.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
Label2.Caption = (data & " bisestile " & Month(data))
Else
verifica = False
Label2.Caption = (data & " non bisestile " & Month(data))
End If
End Function

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