[justforit]

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

كيف نعيد صياغة نص ليكون تاريخ مقبول

مثلا الصيغة التالية غير مقبولة:

22-09-25, 03:34 PM 

اقصد برمجيا استقبلها ؟؟

وفقكم الله جميعا

[justforit]

شوف مربع النص الاعلى باللون الاخضر اول خانة من اليسار وهو 01 تعامل معه كانه يوم و انظر الخطا فماهو الكود لكي احوله الى تنسيق صحيح

باسلوب آخر:

ضع التاريخ التالي في مربع النص الاول:

كود :

13-09-12, 12:46 PM

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

المرفق هذا اجرب عليه

.

شكر الله لكم جيمعا

[Zuhare]

هل هذا المطلوب

كود :

Dim d = CDate("13-09-12, 12:46 PM")
Dim us_date = d.ToString(New CultureInfo("en-US"))
MsgBox(us_date)

[justforit]

(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

هذا اذا كنت اعرف خانة الشهر من خانة  اليوم

[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)

[justforit]

(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)

بصراحة لا ادري لكن مثلا قائمة الاعضاء وانظر لتاريخ الانتساب هذا بتنسيق لا يقبله الجهاز.
لي محاولة بمشاركتي السابقة لكن لازم اكون اعرف خانة االشهر من اليوم.
ايضا افكر بكود التحقق من هل الرقم شهر ام يوم ام سنة.

[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)

[justforit]

(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 وهذا اللي اوقعني بالحيرة.
الحين تمام.
شكر الله لك و بارك فيك