الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

معرفة عدد المراتب ( الخانات ) قبل الفاصلة

بدأه Islamic_Empire في 31 يوليو 2008 · 1 رد · 1,706 مشاهدة · في الرياضيات والخوارزميات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

إخواني هذه مسألة بسيطة جدا ولها حل ولكني ابحث عن اسهل حل

إذا كان عندك عدد به فواصل مثلا

.089
.000768

وتريد معرفة عدد المنازل يعني مثلا العدد الاول به ثلاثة منازل والعدد الثاني ستة , انا اريد ان اعرف ذلك لكي اعرف ما العدد المقسوم عليه مثلا العدد الاول مقسوم على 100 والثاني على مليون

بمعنى آخر :

عشرة أس عدد الخانات .

طيف كيف نعرف عدد هذه المنازل ؟

هناك طريقة بأن تحول العدد إلى نص وتحسب طول النص

هناك ابسط بأن تستمر في الضرب ب 10 حتى تتجاوز القيمة الصفر وتعد عدد المرات

هل هناك طريقة رياضية ابسط ؟

بانتظار ردودكم

#2

السلام عليكم ..

أقدم حلين على السريع ...

الابسط أولا :

Private Sub Command1_Click()
s = Split(Text1, ".")
MsgBox Len(s(UBound(s)))
End Sub

الثاني:

Private Sub Command1_Click()
i = 0
Do
  i = i + 1
  s = Left(Right(Text1, i), 1)
Loop Until s = "."
MsgBox i - 1
End Sub

سأفكر لاحقا بحلول رياضية ...

تم تعديل هذه المشاركة بواسطة Devd في 1 أغسطس 2008 في 02:10

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…