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