[طالب برمجة]

الارقام الظاهرة في النص ليست ارقام حقيقية ويجب تحويلها الى ارقام حقيقية ثم يتم اقتطاع جزء التاريخ لتحويله

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)