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