Contact: aviboots(AT)netvision.net.il
40,888 questions
53,296 answers
573 users
Imports System Public Class Program Public Shared Sub Main() Dim d As Double = 9812347.9085 Dim dstr As String = d.ToString() Dim total_digits As Integer = dstr.Length - 1 Console.Write(total_digits) End Sub End Class ' run: ' ' 11 '