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

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

مساعدة بخصوص التاريخ تلقائيا - ahmedfa71 - 07-06-18

السلام عليكم ورحمة الله وبركاته ورمضان كريم
محتاج كود بحيث عند تحديد العطلة في التكست بوكس مثلا 30 يوم ثم نقوم بتحديد بداية تاريح العطلة
مباشرة يعطيني تاريخ نهاية العطلة 
ويعطيني تاريخ الإستئناف الذي هو تاريخ نهاية العطلة + 1

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

RE: مساعدة بخصوص التاريخ تلقائيا - بيسك لكل العرب - 07-06-18

وعليكم السلام أخي 
لم افهم سؤالك جيدا 
قم بي إنشاء مثال حتى يتسني لنا فهم ماتريد بالظبط 
وسنقوم بإضافة الاكواد إن شاء الله

RE: مساعدة بخصوص التاريخ تلقائيا - ahmedfa71 - 07-06-18

أخي بيسك لكل العرب شكرا على الرد
سأرفق صورة للبرنامج
هي عكس حساب مدة بين تاريخين
أي حساب تاريخ المدة عند تحديد هذه المدة
مثلا 30 يوم من تاريخ 01/01/2018
فيعطيك في تاريخ النهاية 30/01/2018
وفي تاريخ الإستئناف 31/01/2018

أتمنى أن أكون قد وضحت وشكرا لكم جميعا


RE: مساعدة بخصوص التاريخ تلقائيا - elgokr - 07-06-18

لديك بعض الامثلة لما يمكنك فعله ...

مثلاً قمت بادخال عدد الايام فى textbox1 لعدد الايام 30
ويقوم بتطبيق على ابتدائاً من تاريخ اليوم ليعرض التاريخ فى textbox2

هيكون بهذا الشكل
كود :
TextBox2.Text = Now.AddDays(+TextBox1.Text).ToString("yyyy/MM/dd")

الكود عبارة عن التالى
كود :
TextBox2.Text = Now.AddDays(+30).ToString("yyyy/MM/dd")

وهو جلب تاريخ ووقت الان ومن ثم اضافة عدد الايام المطلوبة اضافتها مثال (30 يوم)

اذا كان التاريخ يتم جلبه من خلال DateTimePicker هيكون الطريقة باستخدام التالى
كود :
TextBox2.Text = DateTimePicker1.Value.AddDays(+TextBox1.Text).ToString("yyyy/MM/dd")

بحيث ان DateTimePicker  هو تاريخ ابتداء احتساب بداية العطلة من ثم يقوم باضافة عدد ايام العطلة

بخصوص اضافة +1 كما طلبت

فقط اعمل كا مثال التالى
كود :
TextBox2.Text = Now.AddDays(+(TextBox1.Text + 1)).ToString("yyyy/MM/dd")

اتمنى ان الفكرة قد وصلت بعدة الطرق التى قد تحتاج اليها

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