23-06-23, 03:54 AM
27-06-23, 07:10 PM
Dim myNumber As Integer
myNumber = 11
Dim formattedNumber As String
formattedNumber = Format(myNumber, "000")
TextBox1.Text = formattedNumber
هذا مثال بسيط عدلة حسب احتياجاتك
30-06-23, 12:14 AM
تعديل بسيط على كود الأخ Shade0001
كود :
Dim myNumber As Integer
myNumber = 11
Dim formattedNumber As String
formattedNumber = Format("000" & myNumber)
TextBox1.Text = formattedNumber