تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تحويل قيمة الي تاريخ
#1
اريد تحويل المتغير الاتي الي وقت وتاريخ لأضيفة الي قاعدة البيانات

"الجمعة ٠٨/١٢/٢٠١٧ at ٠٣:٣٦:٠١ م"
الرد
تم الشكر بواسطة:
#2
الارقام الظاهرة في النص ليست ارقام حقيقية ويجب تحويلها الى ارقام حقيقية ثم يتم اقتطاع جزء التاريخ لتحويله
PHP كود :
Dim t As String "الجمعة ٠٨/١٢/٢٠١٧ at ٠٣:٣٦:٠١ م"
Dim d

For Each c As Char In t.ToCharArray
    If AscW
(c) >= &H660 And AscW(c) <= &H669 Then
        t 
t.Replace(cChrW(AscW(c) - &H630))
 
   End If
Next

Dim s 
As String Regex.Replace(t"(\w+)\s?(\d{2}/\d{2}/\d{4})\s?at\s(\d{2}:\d{2}:\d{2}\s\w+)""$2 $3")
If 
IsDate(sThen d CDate(s)

MsgBox(d
الرد
تم الشكر بواسطة: محمد اسماعيل
#3
(22-02-18, 02:24 PM)طالب برمجة كتب : الارقام الظاهرة في النص ليست ارقام حقيقية ويجب تحويلها الى ارقام حقيقية ثم يتم اقتطاع جزء التاريخ لتحويله
PHP كود :
Dim t As String "الجمعة ٠٨/١٢/٢٠١٧ at ٠٣:٣٦:٠١ م"
Dim d

For Each c As Char In t.ToCharArray
    If AscW
(c) >= &H660 And AscW(c) <= &H669 Then
        t 
t.Replace(cChrW(AscW(c) - &H630))
 
   End If
Next

Dim s 
As String Regex.Replace(t"(\w+)\s?(\d{2}/\d{2}/\d{4})\s?at\s(\d{2}:\d{2}:\d{2}\s\w+)""$2 $3")
If 
IsDate(sThen d CDate(s)

MsgBox(d

زادك اللّة من علمة وفضلة ورفع قدرك

الكود تمام
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] تحويل مشروع فيجوال 2010 الى فيجوال بيسك 6 KMBH 2 91 11-12-19, 11:25 PM
آخر رد: alfaiz678
  [VB.NET] خطاء عند تحويل الكود محمد اسماعيل 0 54 05-12-19, 07:14 PM
آخر رد: محمد اسماعيل
  [VB.NET] مشكل في اظهار قيمة trakktour 4 149 29-11-19, 09:16 PM
آخر رد: trakktour
  طلب تحويل كود vb6 الى كود vb 2012 m.n.hakami 5 168 27-11-19, 09:27 PM
آخر رد: asemshahen5
  [VB.NET] تحويل كود من أكسس إلي سيكوال سيرفر اسامه الهرماوي 1 104 21-11-19, 02:38 AM
آخر رد: boudyonline
  [VB.NET] احتاج الي تحويل هذا المشروع من السي شارب الي الفيجوال بيسك مشروع صغير abo3li8555 5 281 21-11-19, 02:07 AM
آخر رد: Benmouha
  ماهي طريقة تغيير لون خلية معينة في الكريستال ريبورت حسب قيمة معينة جيولوجي مبتدئ 3 176 10-11-19, 02:59 PM
آخر رد: baha
  ممكن تحويل الكود لحلقة تكرار m.n.hakami 2 139 10-11-19, 12:25 AM
آخر رد: m.n.hakami
  أريد تحويل مشروعي من اكسس الى sql Dr.Sherif Alazizi 20 7,387 08-11-19, 01:27 PM
آخر رد: ggtt17121985
  مشكلة اضافة قيمة للريجسترى ابو روضة 6 213 06-11-19, 12:50 AM
آخر رد: ابو روضة

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


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