Contact: aviboots(AT)netvision.net.il
39,914 questions
51,847 answers
573 users
Imports System Public Class Program Public Shared Sub Main() Dim d As Double = 32.781 Dim b As Byte b = CByte(d) Console.WriteLine(B) Console.WriteLine(CByte(32.198)) End Sub End Class ' run: ' ' 33 ' 32 '