[محمد اسماعيل]

اريد تحويل المتغير الاتي الي وقت وتاريخ لأضيفة الي قاعدة البيانات

"الجمعة ٠٨/١٢/٢٠١٧ 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(c, ChrW(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(s) Then 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(c, ChrW(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(s) Then d = CDate(s)

MsgBox(d) 


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

الكود تمام