22-02-18, 06:08 AM
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)
22-02-18, 06:22 PM
(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)
زادك اللّة من علمة وفضلة ورفع قدرك
الكود تمام