[Hassan.syria]

السلام عليكم 
كيف احافظ على الاصفار الموجودة على يسار الرقم في فجول بيسك عند الجمع

---

أرجو المساعدة محتاجه ضروري

[Shade0001]

Dim myNumber As Integer

        myNumber = 11

        Dim formattedNumber As String

        formattedNumber = Format(myNumber, "000")

        TextBox1.Text = formattedNumber

هذا مثال بسيط عدلة حسب احتياجاتك

[أبو خالد الشكري]

تعديل بسيط على كود الأخ Shade0001

كود :

       Dim myNumber As Integer
       myNumber = 11
       Dim formattedNumber As String
       formattedNumber = Format("000" & myNumber)
       TextBox1.Text = formattedNumber