[nabil.1710]

السلام عليكم 

لدي نموذج بسيط اريد كود عندما اضغط الى الزر ينقل التاريخ و يقسمه حسب الموضح فى الصورة .

و شكرا

[mostafa12]

تفضل اخي ضع هاذا الكود بلبتون وهو للتيكست السنه
TextBox1.Text = DateTimePicker1.Value.ToString("yyyy")

---

وغير لتيكست بوكس الشهر حط محل yyyy
MM ولايكست بوكس اليوم حط dd

---

انا لا اعرف بلبرمجخ ولكن هاذا كود بفعل ما تريد اكيد في اكواد اسهل وافضل ولكن نفس النتيجه

---

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

TextBox1.Text = DateTimePicker1.Value.ToString("yyyy")
TextBox2.Text = DateTimePicker1.Value.ToString("MM")
TextBox3.Text = DateTimePicker1.Value.ToString("dd")

[nabil.1710]

(16-10-19, 06:56 PM)mostafa12 كتب : تفضل اخي ضع هاذا الكود بلبتون وهو للتيكست السنه
       TextBox1.Text = DateTimePicker1.Value.ToString("yyyy")

---

وغير لتيكست بوكس الشهر حط محل yyyy
MM ولايكست بوكس اليوم حط dd

---

انا لا اعرف بلبرمجخ ولكن هاذا كود بفعل ما تريد اكيد في اكواد اسهل وافضل ولكن نفس النتيجه

---

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

TextBox1.Text = DateTimePicker1.Value.ToString("yyyy")
       TextBox2.Text = DateTimePicker1.Value.ToString("MM")
       TextBox3.Text = DateTimePicker1.Value.ToString("dd")

تم المطلوب شكرا لك

[mostafa12]

عفوا حبيبي

[3booody]

أيضآ يمكنك تقسيم أي نص حسب الفواصل

كود :

Dim txt As String = "16/10/2019"
       TextBox1.Text = txt.Split("/")(0)
       TextBox2.Text = txt.Split("/")(1)
       TextBox3.Text = txt.Split("/")(2)

[mostafa12]

Dim txt As String = "16/10/2019"
هنا تضع محل التاريخ DateTimePicker1.Value.ToString("dd/MM/yyyy
")
على حسب معلوماتي ويمكن خطاء الفرق بين الكودين يبينلك الكود الاول واحد ملش ولا بعرف بلربمجه ههههههه اما الكود الثاني شخص فنان ومحترف

[elgokr]

جزاكم الله جميعاً كل خير

لما طرح  منكم من اجابات لتصل الطريقة لصاحب الموضوع

تحياتى لكم جميعاً

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