(09-11-18, 01:41 AM)ahmadpal كتب : بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركانة
اخوتي الاعزاء ارجو ان تكونوا بأتم الصحة والعافية
سؤالي حول تحويل 3 تكست بوكس الى تاريخ
- يوجد لدي تكست بوكس عدد 3 الاول لليوم والثاني للشهر والثالث للسنة
- اريد ان يكون التاريخ داخل تكست بوكس منفصل يشمل جميع هذه التكست بوكس
- لا اريد ان اتخلى عن ال3 تكست بوكس الخاصة باليوم والشهر والسنه ولكن اريد ان يكون الى جانبها تكست بوكس يظهر به التاريخ على الشكل التالي ("dd/MM/yyyy")
- و هل يوجد اداة تقوم بفصل التاريخ ليكون على شكل 3 تكست بوكس قد تكون هذه الاداه حل لمشكلتي
وشكراً لكم واتمنى ان اجد ضالتي عندكم
(09-11-18, 11:09 AM)ahmadpal كتب : اشكركم على الاجابة عن استفساري
الاخ [b]حريف برمجة : شكرا جزيلا لكن سوف تكون هنالك مشكلة في حال كان التكست فارغ فان علامات // سوف تظهر في التكست بوكس الرابع وانا ابحث عن طريقة لا استخدم فيها الجمل الشرطية if خصوصاً ان مشروعي يحتوي على العديد من التاريخ حول هذا الخصوص اريد كود يحول الى تاريخ وفي حال كان فارغاً لا اريد ان يظهر اي نتائج ولا اريد استخدام جمل if[/b]
[b]الاخ [b][b]rmnr شكرا لك لكن هذه الجملة تفيد تاريخ اليوم وانا لا اريد استخدام تاريخ اليوم انا اريد ان اقوم بادخال تاريخ بشكل حر[/b][/b][/b]
لم توضح من البداية ما ذكرته لاحقا بحصوص إدخال التاريخ وعدم استخدام if
مما قد يسبب في ضياع وقت ومجهود الأعضاء الذين يقدمون المساعدة
كود :
Private Sub TextBox123_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged
Try
Dim t As String = String.Format("{0:2}/{1:2}/{2:4}", Val(TextBox1.Text).ToString("00"), Val(TextBox2.Text).ToString("00"), Val(TextBox3.Text).ToString("0000"))
Dim d As Date = Date.ParseExact(t, "dd/MM/yyyy", Globalization.CultureInfo.CurrentCulture)
TextBox4.Text = d.ToString("dd/MM/yyyy")
Catch ex As Exception
TextBox4.Clear()
End Try
End Sub