Contact: aviboots(AT)netvision.net.il
39,884 questions
51,810 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim dbl As Double = 389.49 Dim ul As ULong = CULng(dbl) Console.WriteLine(ul) dbl = 389.5 ul = CULng(dbl) Console.WriteLine(ul) End Sub End Module ' run: ' ' 389 ' 390 '