منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : كيف اتعامل مع اتجاه النص
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
عندي قاعدة بيانات اخذ منها مجموعة بيانات 
مشكلتي التاريخ يجي من اليمين الى اليسار او من اليسار الى اليمين 

مثل كذا
1/1/1439
1439/1/1

احتاج احفظه بالصيغه الثانيه وانا استقبله من القاعده القديمه بالصيغه الاولى 
كيف احوله بالصيغه الثانيه اتمنى وصلت المعلومه
انا احفظه بصيغة نص 
ينزل في المتغير كذا 1/1/1440
وابي احفظه كذا 1440/1/1
كيف اعكسه هذا السؤال
(06-11-18, 11:27 PM)DOX.1 كتب : [ -> ]انا احفظه بصيغة نص 
ينزل في المتغير كذا 1/1/1440
وابي احفظه كذا 1440/1/1
كيف اعكسه هذا السؤال

وين الشباب ..!!؟
بعد العرض في التكست اعمل له عكس مثلاً :

لنفرض معروض في تكست بوكس 1 يكون الكود كالتالي :


كود :
TextBox1.Text = CDate(TextBox1.Text).ToString("yyyy/M/d")
اضافة لما قدمه الاخ حريف برمجة
حيث ان الحل الامثل والصحيح للامر

ولكن للتنوع ومعرفة طرق اخري فيمكن استخدام كالاسلوب التالى
كود :
       Dim st As String = "1/1/1440"
       Dim sp As String() = st.Split("/")
       Dim dt As String = sp(2) & "/" & sp(1) & "/" & sp(0)
       MsgBox(dt) ' 1440/1/1

تحياتى لك
وتمنياتى لك التوفيق
عملت جملة FOR  
بعداد من بداية الداتا تيبل الى نهايتها 
استقبلت التاريخ بمتغير نصي 

Str


وطبقت كود الاخ حريف ويعطيني خطأ
التاريخ الموجود في المتغير النصي Str

كيف يكون اعطي مثال ؟

الخطأ ماهو وضح اكثر ؟
كود :
str= dtAcc(ii)(4).ToString

'If str= "" Then
               '    Parma(14) = New SqlParameter("@Det_H", SqlDbType.NVarChar, 10) With {.Value = ""}
               '    Parma(15) = New SqlParameter("@Det_M", SqlDbType.NVarChar, 15) With {.Value = ""}
               'Else
               '    dde = DateConvert(Str)
               Parma(14) = New SqlParameter("@Det_H", SqlDbType.NVarChar, 10) With {.Value = str.tostring("yyyy/MM/dd")}
               Parma(15) = New SqlParameter("@Det_M", SqlDbType.NVarChar, 15) With {.Value = dd}
هذا الكود أستقبل التاريخ في المتغير وأحفظ تاريخ هجري وميلادي
تم الحل ولله الحمد