Mega Code Archive

 

Categories / VB.Net / Development

 

Convert ToUInt16 (Int64) converts 64-bit signed integer to 16-bit unsigned integer

Class Sample    Public Shared Sub Main()         Dim numbers() As Long = { Int64.MinValue, -1, 0, 121, 340, Int64.MaxValue }         Dim result As UShort         For Each number As Long In numbers            Try               result = Convert.ToUInt16(number)               Console.WriteLine("Converted the {0} value '{1}' to the {2} value {3}.", _                                 number.GetType().Name, number, _                                 result.GetType().Name, result)            Catch e As OverflowException               Console.WriteLine("OverflowException",number.GetType().Name, number)            End Try         Next     End Sub  End Class