[elgokr]

لاتمام الامر بصورة صحيحة وبدون اى اخطاء

فقط استخدم هذا الكود

كود :

   Function RunNum(ByVal a As Integer, Optional b As Integer = 3)
       Dim Len As Integer = a.ToString.Length
       Dim Rn3 As Integer = Len - b + 1
       Dim Sp1 As Integer = Mid(a, Rn3, Len)   'Right
       Dim Sp2 As Integer = Mid(a, 1, Rn3 - 1) ' Left
       If Sp1 >= CInt(5 & StrDup(b - 1, "0")) Then Sp2 += 1
       Return Sp2.ToString() + StrDup(b, "0")
   End Function

وعند الاستدعاء يكون بهذا الشكل كمثال

كود :

       MsgBox(RunNum(150300))

وظيفة الكود يقوم بجلب اخر 3 ارقام طبقاً لما هو محدد هنا بهذا الجزء

كود :

Optional b As Integer = 3

حيث رقم 3 تشير الـ الالاف و 2 الى المئات و 1 تشير الى العشرات

طيب لو فجاء كنت محتاج التعامل مع هذا الكود

مرة فى زر بحيث يكون عشرات

كل ما عليك استخدام الكود بهذا الشكل

كود :

       MsgBox(RunNum(150306, 1))

واذا كان فى الزر الثاني كمثال لـ المئات

كود :

       MsgBox(RunNum(150390, 2))

وطبعة الحال اذا كان لـ المئات فيمكن استخدام الكود هكذا

كود :

       MsgBox(RunNum(150300, 3))

وايضاً بهذا الشكل

كود :

       MsgBox(RunNum(150300))

طيب لو كان المطلوب لاكثر من ثلك مثلاً لـ 4 ارقام او 5

كل الامر فقط انك تستخدم الكود مع تغيير الرق فقط الاخير كمثال

كود :

       MsgBox(RunNum(150300, 4))

كود :

       MsgBox(RunNum(150300, 5))

كود :

       MsgBox(RunNum(150300, 6))

اتمنى الصورة تكون واضحة تماماً

الكود بدوت اى اخطاء تماماً طوال ان الرقم صحيح بدون ارقام عشرية

بمعنى اذا كان الرقم المدخل بهذا الشكل

كود :

652131124

فستجد ان الكود يقوم بجلب القيمة صحيحة بدون اى خطاء

واذا كان القيمة مثل

كود :

5434982.52

فهنا ستجد ان الناتج الذى سيخرج قيمة صحيحة بدون اى كسور

فاذا كنت تريد اظهار الكسور فاتمنى التوضيح حتى اقوم بتعديل بسيط على الكود لاظهار الكسور

تحياتى لك

وتمنياتى لك التوفيق