منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : نسخ و تقسيم التاريخ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 

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

و شكرا

تفضل اخي ضع هاذا الكود بلبتون وهو للتيكست السنه
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")
(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")

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


كود :
Dim txt As String = "16/10/2019"
       TextBox1.Text = txt.Split("/")(0)
       TextBox2.Text = txt.Split("/")(1)
       TextBox3.Text = txt.Split("/")(2)
Dim txt As String = "16/10/2019"
هنا تضع محل التاريخ DateTimePicker1.Value.ToString("dd/MM/yyyy
")
على حسب معلوماتي ويمكن خطاء الفرق بين الكودين يبينلك الكود الاول واحد ملش ولا بعرف بلربمجه ههههههه اما الكود الثاني شخص فنان ومحترف
جزاكم الله جميعاً كل خير
لما طرح  منكم من اجابات لتصل الطريقة لصاحب الموضوع

تحياتى لكم جميعاً
وتمنياتى لكم التوفيق