تقييم الموضوع :
  • 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)

بالتوفيق


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند رفع قعدة البينات فى الفيجول بيسك Mohamed Magdy 1 18 منذ 32 دقيقة مضت
آخر رد: ابراهيم ايبو
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 11 352 منذ 39 دقيقة مضت
آخر رد: ahmedmansour
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 34 منذ 10 ساعة مضت
آخر رد: nabil.1710
  مشكلة داخل البوتن Mohamed Magdy 5 42 أمس, 10:04 PM
آخر رد: XBOOBX
  مشكلة فى التعديل salah mansour 7 109 15-10-18, 02:39 PM
آخر رد: فراس محي
  [VB.NET] مشكلة في استخراج روابط هذه الصفحة بال HtmlAgilityPack mervandzz 2 62 13-10-18, 03:53 PM
آخر رد: mervandzz
  مشكلة فى اختفاء فورم salah mansour 0 44 12-10-18, 01:47 AM
آخر رد: salah mansour
  [VB.NET] مشكلة بكود التحديث لقاعدة البيانات محمد اسماعيل 4 99 11-10-18, 06:45 AM
آخر رد: محمد اسماعيل
  مشكلة فى تشغيل قارئ من بين جميع القراء ابو روضة 10 236 10-10-18, 12:00 AM
آخر رد: AymanRamadanSaad
  [VB.NET] مشكلة في كود تغيير لغة البرنامج ay.alhaj 13 227 09-10-18, 08:52 PM
آخر رد: ay.alhaj

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


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