[ahmadpal]

بسم الله الرحمن الرحيم 

السلام عليكم ورحمة الله وبركانة 

اخوتي الاعزاء ارجو ان تكونوا بأتم الصحة والعافية 

سؤالي حول تحويل 3 تكست بوكس الى تاريخ 

- يوجد لدي تكست بوكس عدد 3 الاول لليوم والثاني للشهر والثالث للسنة 

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

- لا اريد ان اتخلى عن ال3 تكست بوكس الخاصة باليوم والشهر والسنه ولكن اريد ان يكون الى جانبها تكست بوكس يظهر به التاريخ على الشكل التالي ("dd/MM/yyyy")

- و هل يوجد اداة تقوم بفصل التاريخ ليكون على شكل 3 تكست بوكس قد تكون هذه الاداه حل لمشكلتي 

وشكراً لكم واتمنى ان اجد ضالتي عندكم 

[حريف برمجة]

كود :

TextAllDate.Text = Textday.Text & "/" & Textmonth.Text & "/" & Textyear.Text

[ahmadpal]

اشكركم على الاجابة عن استفساري 
الاخ [b]حريف برمجة : شكرا جزيلا لكن سوف تكون هنالك مشكلة في حال كان التكست فارغ فان علامات // سوف تظهر في التكست بوكس الرابع وانا ابحث عن طريقة لا استخدم فيها الجمل الشرطية if خصوصاً ان مشروعي يحتوي على العديد من التاريخ حول هذا الخصوص اريد كود يحول الى تاريخ وفي حال كان فارغاً لا اريد ان يظهر اي نتائج ولا اريد استخدام جمل if[/b]


[b]الاخ [b][b]rmnr شكرا لك لكن هذه الجملة تفيد تاريخ اليوم وانا لا اريد استخدام تاريخ اليوم انا اريد ان اقوم بادخال تاريخ بشكل حر[/b][/b][/b]

[حريف برمجة]

كود :

if Textday.Text = "" or Textmonth.Text = "" or Textyear.Text = "" then
MsgBox("No Date")
Else
TextAllDate.Text = Textday.Text & "/" & Textmonth.Text & "/" & Textyear.Text
End if

[ahmadpal]

شكرا لك اخي [b]حريف برمجة [/b]على المتابعة ولكن كما ذكرت سابقا لا اريد استخدام جمل if

[حريف برمجة]

هل تريد استخدم سيليكت كيس (Select Case)

[ahmadpal]

اكرر شكري لكن احتاج كود ليس فيه شروط 
فهل يمكنني استخدام التايم بيكر ليظهر به اليوم مستقل والشهر مستقل والسنه مستقله ثم اقوم بدمجهم في نص واحد بعد ذلك

[ابراهيم ايبو]

السلام عليكم اخي الكريم 

هذا مثال فيه ماترغب وازيد ان شاء الله اختر مايناسبك وليس فيه جمل شرطية

[rmnr]

(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

[ahmadpal]

شكرا للجميع 

شكرا [b]ابراهيم ايبو [/b]على السورس الذي تم رفعه لكني وللاسف الشديد لم اجد ضالتي به 

الاخ الكريم[b][b][b] [/b][/b][/b][b][b][b]rmnr [/b][/b][/b]اشكرك من اعماق قلبي فلقد نجح الكود الذي قدمته لي وبارك الله بك وجازاك كل خير 

واكرر شكري لكل من ساهم في الاجابة عن السؤال وأسأل الله تعالى ان يجعله في ميزان حسناتكم 

وتقبلوا مني كل المحبة والتقدير وأعانكم الله على مساعدة الاخرين