بسم الله الرحمن الرحيم
اهلا ومرحبا بكل مسؤولي واعضاء المنتدي الكرام لديه
PHP كود :
Dim OldFormat As String = "2016-12-26-09-36-08" 'الشكل القديم
Dim OldDate As Date = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-hh-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss") 'التحويل الى الشكل الذي نريده
MsgBox(NewFormat) 'اظهار النتيجة في مسجبوكس '
اولا ساشرح لكم وظيفت هذا الكود : اولا معي كومبوبكس فيه iteam تاريخ يعني اسم ال iteam تاريخ مثل 08-36-09-26-12-2016
وهكذا يقوم الكود عندما اختار اي iteam من الكومبوكس بتغير صيغة هذا التاريخ -36-09-26-12-2016 الذي هو صيغة yyyy-MM-dd-hh-mm-ss
ويجعله علي هذه الصيغة dd/MM/yyyy HH:mm
s اي مثل هذه الشكل 26/12/2016 09:36:08
ويخرج التاريخ في ماسج بوكس بعد تحويله الي الشكل الثاني لكن عندما اختار اي iteam يقوم باعطائي هذا الناتج
في كل مرة 2016-12-26-09-36-08 ارجو التعديل علي الكود
اخوانييييييييييييييييييييييييي اين انتم
(14-02-17, 08:08 PM)Adrees كتب : [ -> ]جرب الطريقة التالية
PHP كود :
Dim OldFormat As String = "2016-12-26-09-36-08" 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-hh-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
MsgBox(NewFormat) 'اظهار النتيجة في مسجبوكس '
لم يحدث شئ المشكلة مازالت موجودة
طيب اوك اريد استعمالها في اداة كومبوبكس في اي حدث اضعها
اوك
ضعها في حدث SelectedIndex.
لم تنجح المهم ساجرب طريقتك اعطني كود يقوم بوضع نفس الايتم المحدد في الكومبوبكس ويقوم بنقله في اداة تيكست بوكس
تفضل الكود وقد جربته قبل وضعه
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim OldFormat As String = ComboBox1.Text 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-HH-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
TextBox1.Text = NewFormat 'اظهار النتيجة في مسجبوكس '
End Sub
عفوا على هذا السؤال، هل أنت مبتدئ في البرمجة؟
(15-02-17, 06:36 PM)مساعدة كتب : [ -> ]تفضل الكود وقد جربته قبل وضعه
كود :
Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim OldFormat As String = ComboBox1.Text 'الشكل القديم
Dim OldDate As DateTime = DateTime.ParseExact(OldFormat, "yyyy-MM-dd-HH-mm-ss", Globalization.CultureInfo.InvariantCulture) 'التحويل من نص الى تاريخ و وقت
Dim NewFormat = OldDate.ToString("dd/MM/yyyy HH:mm:ss", Globalization.CultureInfo.InvariantCulture) 'التحويل الى الشكل الذي نريده
TextBox1.Text = NewFormat 'اظهار النتيجة في مسجبوكس '
End Sub
عفوا على هذا السؤال، هل أنت مبتدئ في البرمجة؟
ولله اخي انا افعل مابوسعي لكي اتعلم والله لايكلف نفسا الا بوسعها المهم لدينا مشكلة هنا
واعتقد ان الكود كان يعمل منذو البداية لاكني اكتشفت الخطئ وهو ان اي iteam لديه في الكومبوكس
يبدء يكون هكذا beinsave-yyyy-MM-dd-HH-mm-ss
وعندما اختار اي ايتم يعطيني ان التنسيق خطئ فهل يوجد حل لكي لايقراء beinsave-
