+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال حول استخدام التاريخ (/showthread.php?tid=27358)
سؤال حول استخدام التاريخ - ahmadpal - 09-11-18
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركانة
اخوتي الاعزاء ارجو ان تكونوا بأتم الصحة والعافية
سؤالي حول تحويل 3 تكست بوكس الى تاريخ
- يوجد لدي تكست بوكس عدد 3 الاول لليوم والثاني للشهر والثالث للسنة
- اريد ان يكون التاريخ داخل تكست بوكس منفصل يشمل جميع هذه التكست بوكس
- لا اريد ان اتخلى عن ال3 تكست بوكس الخاصة باليوم والشهر والسنه ولكن اريد ان يكون الى جانبها تكست بوكس يظهر به التاريخ على الشكل التالي ("dd/MM/yyyy")
- و هل يوجد اداة تقوم بفصل التاريخ ليكون على شكل 3 تكست بوكس قد تكون هذه الاداه حل لمشكلتي
وشكراً لكم واتمنى ان اجد ضالتي عندكم
RE: سؤال حول استخدام التاريخ - حريف برمجة - 09-11-18
كود :
TextAllDate.Text = Textday.Text & "/" & Textmonth.Text & "/" & Textyear.TextRE: سؤال حول استخدام التاريخ - ahmadpal - 09-11-18
اشكركم على الاجابة عن استفساري
الاخ [b]حريف برمجة : شكرا جزيلا لكن سوف تكون هنالك مشكلة في حال كان التكست فارغ فان علامات // سوف تظهر في التكست بوكس الرابع وانا ابحث عن طريقة لا استخدم فيها الجمل الشرطية if خصوصاً ان مشروعي يحتوي على العديد من التاريخ حول هذا الخصوص اريد كود يحول الى تاريخ وفي حال كان فارغاً لا اريد ان يظهر اي نتائج ولا اريد استخدام جمل if[/b]
[b]الاخ [b][b]rmnr شكرا لك لكن هذه الجملة تفيد تاريخ اليوم وانا لا اريد استخدام تاريخ اليوم انا اريد ان اقوم بادخال تاريخ بشكل حر[/b][/b][/b]
RE: سؤال حول استخدام التاريخ - حريف برمجة - 09-11-18
كود :
if Textday.Text = "" or Textmonth.Text = "" or Textyear.Text = "" then
MsgBox("No Date")
Else
TextAllDate.Text = Textday.Text & "/" & Textmonth.Text & "/" & Textyear.Text
End ifRE: سؤال حول استخدام التاريخ - ahmadpal - 09-11-18
شكرا لك اخي [b]حريف برمجة [/b]على المتابعة ولكن كما ذكرت سابقا لا اريد استخدام جمل if
RE: سؤال حول استخدام التاريخ - حريف برمجة - 09-11-18
هل تريد استخدم سيليكت كيس (Select Case)
RE: سؤال حول استخدام التاريخ - ahmadpal - 09-11-18
اكرر شكري لكن احتاج كود ليس فيه شروط
فهل يمكنني استخدام التايم بيكر ليظهر به اليوم مستقل والشهر مستقل والسنه مستقله ثم اقوم بدمجهم في نص واحد بعد ذلك
RE: سؤال حول استخدام التاريخ - ابراهيم ايبو - 09-11-18
السلام عليكم اخي الكريم
هذا مثال فيه ماترغب وازيد ان شاء الله اختر مايناسبك وليس فيه جمل شرطية
RE: سؤال حول استخدام التاريخ - rmnr - 09-11-18
(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 SubRE: سؤال حول استخدام التاريخ - ahmadpal - 09-11-18
شكرا للجميع
شكرا [b]ابراهيم ايبو [/b]على السورس الذي تم رفعه لكني وللاسف الشديد لم اجد ضالتي به
الاخ الكريم[b][b][b] [/b][/b][/b][b][b][b]rmnr [/b][/b][/b]اشكرك من اعماق قلبي فلقد نجح الكود الذي قدمته لي وبارك الله بك وجازاك كل خير
واكرر شكري لكل من ساهم في الاجابة عن السؤال وأسأل الله تعالى ان يجعله في ميزان حسناتكم
وتقبلوا مني كل المحبة والتقدير وأعانكم الله على مساعدة الاخرين