Contact: aviboots(AT)netvision.net.il
42,187 questions
54,895 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim dbl As Double = 389.49 Dim ui As UInteger = CUInt(dbl) Console.WriteLine(ui) dbl = 389.5 ui = CUInt(dbl) Console.WriteLine(ui) End Sub End Module ' run: ' ' 389 ' 390 '