20-04-19, 10:54 AM
(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)
تحياتى لكوتمنياتى لك التوفيق
احلا تقييم
تسلم ايدك عمل بشكل ممتاز احسنت استاذي الكريم ومنك ومن الشباب الطيبين نستفيد
الله لا يحرمنا منكم

