[DOX.1]

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

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

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

[DOX.1]

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

[DOX.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")

[elgokr]

اضافة لما قدمه الاخ حريف برمجة

حيث ان الحل الامثل والصحيح للامر

ولكن للتنوع ومعرفة طرق اخري فيمكن استخدام كالاسلوب التالى

كود :

       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

تحياتى لك

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

[DOX.1]

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

Str


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

[حريف برمجة]

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

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

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

[DOX.1]

كود :

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}

هذا الكود أستقبل التاريخ في المتغير وأحفظ تاريخ هجري وميلادي

[DOX.1]

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