+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مشكلة عند تحويل من string الى Date (/showthread.php?tid=11688)
مشكلة عند تحويل من string الى Date - زيد - 12-03-15
السلام عليكم ورحمة الله وبركاته
عندما اكتب تاريخ في textbox ثم احوله الى من نوع Date لاني احتاجه للتعامل مع دوال التارريخ لاكتشاف الفرق مثلا..تظهر هذه الرسالة string was not recognized as a valid datetime..وهذا نص الكود الذي كتبته
كود :
Dim s As Integer = Val(TextBox5.Text)
s = s * -1
هذه الطريقة الاولى
( Dim d1 As Date = Date.TryParseExact(TextBox4.Text.ToString(), "dd/MM/yyyy", Nothing)
TextBox4.Text = DateAdd("M", s, d1)
هذه الطريقة الثانية
Dim d1 As Date = CDate(TextBox4.Text.ToString)
TextBox4.Text = DateAdd("M", s, d1)RE: مشكلة عند تحويل من string الى Date - زيد - 12-03-15
(12-03-15, 07:02 PM)ameerah كتب : الخطأ عندك فيDateAdd
كود :
Dim d1 As Date = CDate(TextBox4.Text).Date
TextBox4.Text = DateAdd(DateInterval.Month, s, d1)
اخي الفاضل طبقت الحل اعلاه لكن ضهرت لي هذه المشكلة (الصورة بالمرفقات)
ارجو الرد وفقك الله
RE: مشكلة عند تحويل من string الى Date - زيد - 12-03-15
(12-03-15, 09:57 PM)ameerah كتب : الرسالة بتقول أنه مربع النص لا يحتوي على نص عشان يحوله.
تأكد أنك تكتب في مربع النص اللي اسمه TextBox4
اخي الفاضل انا اكتب في textBox4 لكن دون جدوى
RE: مشكلة عند تحويل من string الى Date - Dr.Sherif Alazizi - 13-03-15
هذه اكوادي التي استخدمها للتعامل مع التاريخ
كود تحويل التاريخ
Dim dat_st As Date = Date.ParseExact(Date_start.Text, "dd/MM/yyyy", Nothing)
اضافة ايام او شهور او سنوات الى تاريخ
Date_end.Text = DateSerial((Now.Year), (Now.Month), (Now.Day) + 7)
بالتوفيق
RE: مشكلة عند تحويل من string الى Date - زيد - 14-03-15
(13-03-15, 02:29 AM)Dr.Sherif Alazizi كتب : هذه اكوادي التي استخدمها للتعامل مع التاريخ
كود تحويل التاريخ
Dim dat_st As Date = Date.ParseExact(Date_start.Text, "dd/MM/yyyy", Nothing)
اضافة ايام او شهور او سنوات الى تاريخ
Date_end.Text = DateSerial((Now.Year), (Now.Month), (Now.Day) + 7)
بالتوفيق
جزيل الشكر اخي الفاضل
بعد ماقمت بمراجعة الكود بشكل دقيق وكما قلت لي وجدت بان كلامك جدا صحيح وانا اسف لانني لم انتبه وفقك الله لكل خير ياطيب