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 17/12/2023