Public Function Bisestile(Anno As Integer) As Boolean
   'Autore: AntoGal
   'Accetta: Anno (4 cifre)
   'Restituisce: true se l'anno è bisestile
   Bisestile = ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0 
End Function