منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
كيف اتعامل مع اتجاه النص - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اتعامل مع اتجاه النص (/showthread.php?tid=27319)

كيف اتعامل مع اتجاه النص - DOX.1 - 06-11-18

عندي قاعدة بيانات اخذ منها مجموعة بيانات 
مشكلتي التاريخ يجي من اليمين الى اليسار او من اليسار الى اليمين 

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

احتاج احفظه بالصيغه الثانيه وانا استقبله من القاعده القديمه بالصيغه الاولى 
كيف احوله بالصيغه الثانيه اتمنى وصلت المعلومه

RE: كيف اتعامل مع اتجاه النص - DOX.1 - 06-11-18

انا احفظه بصيغة نص 
ينزل في المتغير كذا 1/1/1440
وابي احفظه كذا 1440/1/1
كيف اعكسه هذا السؤال

RE: كيف اتعامل مع اتجاه النص - DOX.1 - 07-11-18

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

وين الشباب ..!!؟

RE: كيف اتعامل مع اتجاه النص - حريف برمجة - 07-11-18

بعد العرض في التكست اعمل له عكس مثلاً :

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


كود :
TextBox1.Text = CDate(TextBox1.Text).ToString("yyyy/M/d")


RE: كيف اتعامل مع اتجاه النص - elgokr - 07-11-18

اضافة لما قدمه الاخ حريف برمجة
حيث ان الحل الامثل والصحيح للامر

ولكن للتنوع ومعرفة طرق اخري فيمكن استخدام كالاسلوب التالى
كود :
       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

تحياتى لك
وتمنياتى لك التوفيق


RE: كيف اتعامل مع اتجاه النص - DOX.1 - 09-11-18

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

Str


وطبقت كود الاخ حريف ويعطيني خطأ

RE: كيف اتعامل مع اتجاه النص - حريف برمجة - 09-11-18

التاريخ الموجود في المتغير النصي Str

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

الخطأ ماهو وضح اكثر ؟

RE: كيف اتعامل مع اتجاه النص - DOX.1 - 09-11-18

كود :
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}
هذا الكود أستقبل التاريخ في المتغير وأحفظ تاريخ هجري وميلادي

RE: كيف اتعامل مع اتجاه النص - DOX.1 - 10-11-18

تم الحل ولله الحمد