Autore: Vito Arconzo

Spesso è necessario conoscere se un anno sia bisestile.
Con VB.NET è molto semplice in quanto, il problema, è stato risolto alla fonte: è fornito un opportuno metodo, IsLeapYear, che accetta in input un valore intero (l'anno) e restituisce un valore booleano (True = bisestile, False = non bisestile).

Per provare questa funzione, creare una form, aggiungere due TextBox di nome rispettivamente TextBox1 e TextBox2 ed un pulsante e infine, nell'evento Click del pulsante inserire il seguente codice:

1      If TextBox1.Text = "" Then
2        TextBox2.Text = "anno non indicato"
3      Else
4        If (DateTime.IsLeapYear(Integer.Parse(TextBox1.Text)) = True) Then
5     	TextBox2.Text = "Anno " & TextBox1.Text & " bisestile."
6        Else
7     	TextBox2.Text = "Anno " & TextBox1.Text & " NON bisestile."
8        End If
9      End If