Contact: aviboots(AT)netvision.net.il
40,891 questions
53,304 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim dbl As Double = 13.719455009 Dim s As Single = CSng(dbl) Console.WriteLine(s) dbl = 13.719456009 s = CSng(dbl) Console.WriteLine(s) End Sub End Module ' run: ' ' 13.71945 ' 13.71946 '