ricerca su anno bisestile

esercitazione con funzione DateSerial , Month con visual basic su powerpoint (variante di precedente)
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
http://digilander.libero.it/francescovise/visualpre/bisestile2.htm

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

vedi pr bisestile4.ppt esentazione

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...