CalcolaBisestile
Function Bisestile(Anno As Integer) As Boolean Bisestile = ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0 End Function
Function Bisestile(Anno As Integer) As Boolean
Bisestile = ((Anno Mod 4) = 0 And (Anno Mod 100)) Or (Anno Mod 400) = 0
End Function
(calcolabisestile.html)- by Paolo Puglisi - Modifica del 25/3/2019