Converts a Decimal to a 16-bit signed integer.
Module DecimalToU_Int16Demo Public Sub DecimalToU_Int16(argument As Decimal) Dim Int16Value As Object Dim UInt16Value As Object ' Convert the argument to a Short value. Try Int16Value = CShort(argument) Catch ex As Exception Console.WriteLine(ex.GetType().Name) End Try ' Convert the argument to a UShort value. Try UInt16Value = CUShort(argument) Catch ex As Exception Console.WriteLine(ex.GetType().Name) End Try Console.WriteLine(Int16Value) Console.WriteLine(UInt16Value ) End Sub Public Sub Main( ) DecimalToU_Int16(123d) End Sub End Module