منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : تحويل قيمة الي تاريخ
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اريد تحويل المتغير الاتي الي وقت وتاريخ لأضيفة الي قاعدة البيانات

"الجمعة ٠٨/١٢/٢٠١٧ at ٠٣:٣٦:٠١ م"
الارقام الظاهرة في النص ليست ارقام حقيقية ويجب تحويلها الى ارقام حقيقية ثم يتم اقتطاع جزء التاريخ لتحويله
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
(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

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

الكود تمام