Contact: aviboots(AT)netvision.net.il
43,875 questions
57,261 answers
573 users
Imports System Public Module Module1 Public Sub Main() Dim dbl As Double = 10000510.0997 Dim dec As Decimal = CDec(dbl) Console.WriteLine(dec) End Sub End Module ' run: ' ' 10000510.0997 '