Contact: aviboots(AT)netvision.net.il
39,926 questions
51,859 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 '