تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال حول استخدام التاريخ
#1
Exclamation 
بسم الله الرحمن الرحيم 
السلام عليكم ورحمة الله وبركانة 
اخوتي الاعزاء ارجو ان تكونوا بأتم الصحة والعافية 
سؤالي حول تحويل 3 تكست بوكس الى تاريخ 
- يوجد لدي تكست بوكس عدد 3 الاول لليوم والثاني للشهر والثالث للسنة 
- اريد ان يكون التاريخ داخل تكست بوكس منفصل يشمل جميع هذه التكست بوكس 
- لا اريد ان اتخلى عن ال3 تكست بوكس الخاصة باليوم والشهر والسنه ولكن اريد ان يكون الى جانبها تكست بوكس يظهر به التاريخ على الشكل التالي ("dd/MM/yyyy")
- و هل يوجد اداة تقوم بفصل التاريخ ليكون على شكل 3 تكست بوكس قد تكون هذه الاداه حل لمشكلتي 
وشكراً لكم واتمنى ان اجد ضالتي عندكم 
الرد }}}
تم الشكر بواسطة: الحمد لله , الحمد لله
#2
كود :
TextAllDate.Text = Textday.Text & "/" & Textmonth.Text & "/" & Textyear.Text
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#3
اشكركم على الاجابة عن استفساري 
الاخ [b]حريف برمجة : شكرا جزيلا لكن سوف تكون هنالك مشكلة في حال كان التكست فارغ فان علامات // سوف تظهر في التكست بوكس الرابع وانا ابحث عن طريقة لا استخدم فيها الجمل الشرطية if خصوصاً ان مشروعي يحتوي على العديد من التاريخ حول هذا الخصوص اريد كود يحول الى تاريخ وفي حال كان فارغاً لا اريد ان يظهر اي نتائج ولا اريد استخدام جمل if[/b]


[b]الاخ [b][b]rmnr شكرا لك لكن هذه الجملة تفيد تاريخ اليوم وانا لا اريد استخدام تاريخ اليوم انا اريد ان اقوم بادخال تاريخ بشكل حر[/b][/b][/b]
الرد }}}
تم الشكر بواسطة: الحمد لله , الحمد لله
#4
كود :
if Textday.Text = "" or Textmonth.Text = "" or Textyear.Text = "" then
MsgBox("No Date")
Else
TextAllDate.Text = Textday.Text & "/" & Textmonth.Text & "/" & Textyear.Text
End if
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
#5
شكرا لك اخي [b]حريف برمجة [/b]على المتابعة ولكن كما ذكرت سابقا لا اريد استخدام جمل if
الرد }}}
تم الشكر بواسطة:
#6
هل تريد استخدم سيليكت كيس (Select Case)
يا رحمن الدنيا والآخرة ورحيمهما
الرد }}}
تم الشكر بواسطة:
#7
اكرر شكري لكن احتاج كود ليس فيه شروط 
فهل يمكنني استخدام التايم بيكر ليظهر به اليوم مستقل والشهر مستقل والسنه مستقله ثم اقوم بدمجهم في نص واحد بعد ذلك
الرد }}}
تم الشكر بواسطة: الحمد لله
#8
السلام عليكم اخي الكريم 
هذا مثال فيه ماترغب وازيد ان شاء الله اختر مايناسبك وليس فيه جمل شرطية


الملفات المرفقة
.rar   date2.rar (الحجم : 105.86 ك ب / التحميلات : 17)
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , ahmadpal
#9
(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
الرد }}}
#10
شكرا للجميع 
شكرا [b]ابراهيم ايبو [/b]على السورس الذي تم رفعه لكني وللاسف الشديد لم اجد ضالتي به 
الاخ الكريم[b][b][b] [/b][/b][/b][b][b][b]rmnr [/b][/b][/b]اشكرك من اعماق قلبي فلقد نجح الكود الذي قدمته لي وبارك الله بك وجازاك كل خير 
واكرر شكري لكل من ساهم في الاجابة عن السؤال وأسأل الله تعالى ان يجعله في ميزان حسناتكم 
وتقبلوا مني كل المحبة والتقدير وأعانكم الله على مساعدة الاخرين 
الرد }}}
تم الشكر بواسطة: الحمد لله , الحمد لله


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
Big Grin [سؤال] سؤال على السريع أبو خالد الشكري 0 176 29-01-24, 08:58 AM
آخر رد: أبو خالد الشكري
  [VB.NET] ظهور التاريخ غير مرتب بالأقدم في datagridview مبرمج صغير 1 4 304 26-01-24, 03:41 PM
آخر رد: atefkhalf2004
  [VB.NET] التاريخ في أداة أبو سامر لطباعة DataGridView مبرمج صغير 1 17 629 26-01-24, 01:52 AM
آخر رد: مبرمج صغير 1
  [VB.NET] مشكلة التاريخ في الداتا قريد فيو مبرمج صغير 1 6 399 24-01-24, 10:12 PM
آخر رد: annagui
  [VB.NET] أرغب فى استخدام هذا الكود بالتحديد على الإصدار 10 AmeenRashed 3 206 19-01-24, 12:42 PM
آخر رد: Taha Okla
  سؤال بسيط يا احبتى فى الله خالد كامل1 4 314 07-01-24, 12:55 AM
آخر رد: Mujahef
  سؤال فى برمجة جهاز الباركود خالد كامل1 6 477 05-01-24, 12:25 AM
آخر رد: HALIM ELEULMA
  [VB.NET] تحويل التاريخ بين أداتين تايم بيكر في نفس الفورم محمد العموري 1 267 29-12-23, 10:44 PM
آخر رد: Kamil
  سؤال فى عمل تقرير مفصل خالد كامل1 1 271 26-12-23, 04:30 PM
آخر رد: تركي الحلواني

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم