[dubai.eig]

(20-04-19, 09:57 AM)elgokr كتب :

وعليكم السلام ورحمة الله وبركاته

طريقة بسيطة وبدون تعقيد او تخمين

حتى ولو وصل الرقم الى 9999999999999+

بما ان الاحرف تاتى بعد الارقام بمعنى ان الكود عبارة عن

كود :

999kkk

اى كانت الحروف ثابتة او متغييرة اذا كانت 3 احرف او اكثر

فكل ما فى الامر نتخيل ان الكود للقيمة كالتالى

كود :

       Dim aa As String = "001kkk"

كل ما فى الامر ناتى بعمل التالى

كود :

       MsgBox((Val(aa) + 1).ToString("000") & aa.Substring(aa.Length - 3, 3))

الان كل ما قد تحتاج الى تغييره هو شئ واحد فقط

انظر الى هذا الجزء فى الكود

كود :

- 3, 3

-3 تعنى عدد 3 احرف التى بعد الرقم

ورقم 3 اللى بعدها هو اشارة لجلب عدد الاحرف

فلو نقول ان عدد الاحرف 4 فكل ما عليك فعله

كود :

- 4, 4

الامر بسيط الان

فالكود كاملاً عبارة عن

كود :

(Val(aa) + 1).ToString("000") & aa.Substring(aa.Length - 3, 3)

تحياتى لك

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

احلا تقييم 

تسلم ايدك عمل بشكل ممتاز احسنت استاذي الكريم ومنك ومن الشباب الطيبين نستفيد

الله لا يحرمنا منكم