تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] مشكلة عند تحويل من string الى Date
#1
السلام عليكم ورحمة الله وبركاته
عندما اكتب تاريخ في 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)
الرد }}}
تم الشكر بواسطة:
#2
(12-03-15, 07:02 PM)ameerah كتب : الخطأ عندك فيDateAdd



كود :
Dim d1 As Date = CDate(TextBox4.Text).Date
TextBox4.Text = DateAdd(DateInterval.Month, s, d1)

اخي الفاضل طبقت الحل اعلاه لكن ضهرت لي هذه المشكلة (الصورة بالمرفقات) 
ارجو الرد وفقك الله


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#3
(12-03-15, 09:57 PM)ameerah كتب : الرسالة بتقول أنه مربع النص لا يحتوي على نص عشان يحوله.
تأكد أنك تكتب في مربع النص اللي اسمه TextBox4

اخي الفاضل انا اكتب في textBox4 لكن دون جدوى 
الرد }}}
تم الشكر بواسطة:
#4
هذه اكوادي التي استخدمها للتعامل مع التاريخ

كود تحويل التاريخ
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)

بالتوفيق
الرد }}}
تم الشكر بواسطة:
#5
(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)

بالتوفيق


جزيل الشكر اخي الفاضل 
بعد ماقمت بمراجعة الكود بشكل دقيق وكما قلت  لي وجدت بان كلامك جدا صحيح وانا اسف لانني لم انتبه وفقك الله لكل خير ياطيب 
الرد }}}
تم الشكر بواسطة:



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


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