منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم جميعا
محتاج منكم مساعدة فى التعديل على هدا الكود
بحيث يرجع الرقم اى ماكان علية
قمة بأظافة هدا الكود
Label1.Text = "0." & Val(Label2.Text)
يعنى يتم تحويل اى رقم الى كسر مثل
1 يصبح 0.1
100 يصبح 0.100
10000 يصبح 0.10000
2321 يصبح 0.2321
4320 يصبح 0.4320 وهكدا
اريد كود يقوم بأزالة الفاصلة (.) وارجاع الرقم الى سابقة مع ان يبقى جميع الاسفار
يعنى 0.10000 تصبح 10000 ولا تصبح 1
هدا الكود فى الارقام التى لاتنتهى بصفر يشتغل بس فى الارقام المنتهى بصفر لايعطى نتيجة صح يرجى يرجى يرجى المساعدة بكود او التعديل على هدا الكود

ولكم الدعاء والشكر
Dim x As Object
x = Split(Val(Label12.Text), ".")
Label13.Text = x(1)
Label8.Text = x(0)

مرحبا بك

أعتقد بأن الحل يكون في الأمر Replace

يمكنك أن ترى المثال في المرفقات .

أخبرني إن كان الحل خاطئًا .

جزاكم الله كل خير وجعله الله فى ميزان حسناتكم مبدعون دائما الاتنين اشتغلا كما اريد
جزاكم الله الفردوس الاعلاء