تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] تحويل قيمة الي تاريخ
#1
اريد تحويل المتغير الاتي الي وقت وتاريخ لأضيفة الي قاعدة البيانات

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

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

الكود تمام
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم