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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=24496)

إضافة أيام للتاكس بكس - حافظ حافظ - 11-04-18

السلام عليكم
من فضلكم اخواني كيف يمكن لما اختار رقم من الكومبوبوكس يطلعلي بالتاكست بوكس 3 تاريخ اليوم يلي بتاكست1 زائد عدد الايام يلي اخترتهم بالتاكست 2
تاكست 3 يساوي تاكست 1 زائد تاكست 2
شكرا كثيرا وبارك الله فيكم

RE: إضافة أيام للتاكس بكس - عبدالله الدوسري - 11-04-18

وعليكم السلام ورحمة الله وبركاتة

كود :
   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
       TextBox2.Text = ComboBox1.Text

       ' يجب التحويل إلى تاريخ أولا للقيام بعملية إضافة عدد الأيام
       Dim MyDate As Date = TextBox1.Text
       ' تحويل عدد الأيام من نص إلى رقم
       Dim NumberOfDaysToAdd As Integer = TextBox2.Text

       ' MyDate الموجودة في التاريخ AddDays الآن نستخدم الوظيفة
       TextBox3.Text = MyDate.AddDays(NumberOfDaysToAdd)

   End Sub


الوظيفة AddDays تقوم بإظافة عدد الأيام ثم ترجع التاريخ الجديد بعد الإظافة



المشروع بعد التعديل :
[attachment=17654]

RE: إضافة أيام للتاكس بكس - حافظ حافظ - 11-04-18

ربنا يبارك فيك استاذ عبد الله الدوسري.تمام هذا المطلوب جزاك الله خير مع الشكر