07-11-24, 03:36 PM
وعليكم السلام ورحمة الله وبركاته
كود :
Dim N1() As String = TextBox1.Text.Split("-")
TextBox2.Text = N1(0).PadLeft(6, "0")
TextBox3.Text = N1(1).PadLeft(6, "0")
TextBox4.Text = N1(2).PadLeft(6, "0")قال صلى الله عليه وسلم:
«كلمتان خفيفتان على اللسان
ثقيلتان في الميزان،حبيبتان إلى الرحمن:
سبحان الله وبحمده، سبحان الله العظيم».