+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=55490)
يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - justforit - 01-11-25
السلام عليكم ورحمة الله و بركاته
كيف نعيد صياغة نص ليكون تاريخ مقبول
مثلا الصيغة التالية غير مقبولة:
22-09-25, 03:34 PM
اقصد برمجيا استقبلها ؟؟
وفقكم الله جميعا
RE: كيف نعيد صياغة نص ليكون تاريخ مقبول - justforit - 01-11-25
شوف مربع النص الاعلى باللون الاخضر اول خانة من اليسار وهو 01 تعامل معه كانه يوم و انظر الخطا فماهو الكود لكي احوله الى تنسيق صحيح
باسلوب آخر:
ضع التاريخ التالي في مربع النص الاول:
كود :
13-09-12, 12:46 PMالمطلوب لو استقبلت نص مثل الاخير هذا كيف اعيد صياغته بحيث يكون اليوم في المنتصف والشهر في اليسار
المرفق هذا اجرب عليه
.
شكر الله لكم جيمعا
RE: يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - Zuhare - 01-11-25
هل هذا المطلوب
كود :
Dim d = CDate("13-09-12, 12:46 PM")
Dim us_date = d.ToString(New CultureInfo("en-US"))
MsgBox(us_date)RE: يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - justforit - 01-11-25
(01-11-25, 05:11 PM)Zuhare كتب : هل هذا المطلوب
كود :
Dim d = CDate("13-09-12, 12:46 PM")
Dim us_date = d.ToString(New CultureInfo("en-US"))
MsgBox(us_date)
بارك الله فيك
لم يقبل الا باعتبار الرقم 13 شهر يعني لازم يكون من 12 فاقل.
افكر بعمل فنكشن لترتيب النص بعيدا عن التاريخ واذا جهز امرره للتاريخ ..اكبر رقم اكيد سنة ثم يوم ثم شهر .
كيف يكون هذا الله اعلم.
كود :
Dim str As String = "^(\d{2})\-(\d{2})\-(\d{4})(,\s\d{2}:\d{2}\s[a-zA-Z]{2})$"
Dim reg As New Regex(str)
Dim ma As Match = reg.Match(TextBox1.Text)
Dim m, d, y, o As String
If ma.Success Then
d = ma.Groups(1).Value
m = ma.Groups(2).Value
y = ma.Groups(3).Value
o = ma.Groups(4).Value
Dim all As String = $"{m}-{d}-{y}{o}"
TextBox2.Text = (ToTimeStamp(all))
Else
MsgBox("false")
End Ifهذا اذا كنت اعرف خانة الشهر من خانة اليوم
RE: يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - Zuhare - 01-11-25
هل التاريخ المدخل يبدا بالشهر ام باليوم وما الهدف اهو ان يبدا بالشهر ام باليوم؟
كود :
Dim d As DateTime = DateTime.ParseExact("13-09-12, 12:46 PM", "dd-MM-yy, hh:mm tt", CultureInfo.InvariantCulture)
Dim us_date = d.ToString(New CultureInfo("en-US"))
MsgBox(d & vbNewLine & us_date)RE: يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - justforit - 01-11-25
(01-11-25, 05:39 PM)Zuhare كتب : هل التاريخ المدخل يبدا بالشهر ام باليوم وما الهدف اهو ان يبدا بالشهر ام باليوم؟
كود :
Dim d As DateTime = DateTime.ParseExact("13-09-12, 12:46 PM", "dd-MM-yy, hh:mm tt", CultureInfo.InvariantCulture)
Dim us_date = d.ToString(New CultureInfo("en-US"))
MsgBox(d & vbNewLine & us_date)
بصراحة لا ادري لكن مثلا قائمة الاعضاء وانظر لتاريخ الانتساب هذا بتنسيق لا يقبله الجهاز.
لي محاولة بمشاركتي السابقة لكن لازم اكون اعرف خانة االشهر من اليوم.
ايضا افكر بكود التحقق من هل الرقم شهر ام يوم ام سنة.
RE: يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - Zuhare - 01-11-25
هذا المنتدى ينسق على يوم-شهر-سنه فيكفي هذا الكود ليعطيك التاريخ بنوع Date لتستطيع التعامل معه باخذ اليوم والشهر والسنه والساعه والدقيقه مثل
كود :
Dim d As DateTime = DateTime.ParseExact("13-09-12, 12:46 PM", "dd-MM-yy, hh:mm tt", CultureInfo.InvariantCulture)
MsgBox(d.Day)
MsgBox(d.Month)
MsgBox(d.Year)RE: يوجد مثال|كيف نعيد صياغة نص ليكون تاريخ مقبول - justforit - 01-11-25
(01-11-25, 06:02 PM)Zuhare كتب : هذا المنتدى ينسق على يوم-شهر-سنه فيكفي هذا الكود ليعطيك التاريخ بنوع Date لتستطيع التعامل معه باخذ اليوم والشهر والسنه والساعه والدقيقه مثل
كود :
Dim d As DateTime = DateTime.ParseExact("13-09-12, 12:46 PM", "dd-MM-yy, hh:mm tt", CultureInfo.InvariantCulture)
MsgBox(d.Day)
MsgBox(d.Month)
MsgBox(d.Year)
بعد كم لفة تبين لي ان yy ليست مثل yyyy وهذا اللي اوقعني بالحيرة.
الحين تمام.
شكر الله لك و بارك فيك