AnnoBisestile
Static Function annobisest( byval n as long) annobisest = false If n Mod 400 = 0 then annobisest = true ElseIf n Mod 100 = 0 then annobisest = false ElseIf n mod 4 = 0 then annobisest = true End If End Function
Static Function annobisest( byval n as long)
annobisest = false
If n Mod 400 = 0 then
annobisest = true
ElseIf n Mod 100 = 0 then
annobisest = false
ElseIf n mod 4 = 0 then
annobisest = true
End If
End Function
(annobisestile.html)- by Paolo Puglisi - Modifica del 25/3/2019