Is Leap Year

This algorithm finds is input year a leap year.



									Public Shared Function IsLeapYear(year As UInteger) As Boolean
	Return (year Mod 4 = 0 AndAlso (year Mod 100 <> 0 OrElse year Mod 400 = 0))
End Function
								


Example

									Dim value = IsLeapYear(2016)
								


Output

									true