+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تحويل قيمة الي تاريخ (/showthread.php?tid=23937)
تحويل قيمة الي تاريخ - محمد اسماعيل - 22-02-18
اريد تحويل المتغير الاتي الي وقت وتاريخ لأضيفة الي قاعدة البيانات
"الجمعة ٠٨/١٢/٢٠١٧ at ٠٣:٣٦:٠١ م"
RE: تحويل قيمة الي تاريخ - طالب برمجة - 22-02-18
الارقام الظاهرة في النص ليست ارقام حقيقية ويجب تحويلها الى ارقام حقيقية ثم يتم اقتطاع جزء التاريخ لتحويله
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)
RE: تحويل قيمة الي تاريخ - محمد اسماعيل - 22-02-18
(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)
زادك اللّة من علمة وفضلة ورفع قدرك
الكود تمام