شمارش تعداد رقم اعشار

[DexterFstone 396]

سلام به همگی

میشخواستم بدونم چطوری میشه تعداد رقم اعشار شمرد

خودم از این روش استفاده میکنم ولی مشکل داره

Dim num as double = 3.14
dim integer as int = num
dim decimal as double = num - integer

do while decimal <> 0
دائما در 10 ضرب میکنم و جواب را در یک اینت میریزم و اعشاری هم در یک دوبل و شمارش گرم یکی اضافه میشه
loop

مسئله اینکه میدونم کد کاملا درسته ولی همیشه 16 رقم برمگردونه و فلوت هم همینطور دوستان اگه راهنمایی کنید ممنون میشم

برای مثال عدد 0.1 و بیسیک 0.999999999999 در نظر میگیره چطوری فیکسش کنم؟

[Mr Silence 137]

درود 

با regex راحت میتونید این کارو انجام بدید

	Dim values As List
	Dim numbers As String = 3.12345
	values = Regex.Split("\.", numbers)
	Dim tedad As String = values.Get(1)
	Log("adad : "&numbers)
	Log("ashar : "&tedad)
	LogColor("tedad ashar : "&tedad.Length,Colors.Red)

 

خروجی :