Question

How to convert double to ushort in VB.NET

Answer 1

Imports System
				
Public Module Module1
	Public Sub Main()
		Dim dbl As Double = 389.49
		Dim us As UShort = CUShort(dbl)
		Console.WriteLine(us)
		
		dbl = 389.5
		us = CUShort(dbl)
		Console.WriteLine(us)
		
	End Sub
End Module




' run:
'
' 389
' 390
'

 

70+ SQL courses for beginners and professionals