منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] كيف اعرف رقم بداية الاسبوع الحالي - نسخة قابلة للطباعة

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

كيف اعرف رقم بداية الاسبوع الحالي - alipro - 10-06-18

السلام عليكم

اريد كود للبحث من بداية الاسبوع الحالي (السبت) الي نهاية الاسبوع (الجمعة) 
vb.net 

وشكرالكم

RE: ابحث عن كود للتاريخ - hichem1 - 10-06-18

أيمكنك التوضيح أكثر ؟

RE: ابحث عن كود للتاريخ - alipro - 10-06-18

[attachment=18462 كتب :hichem1 pid='121241' dateline='1528579530']أيمكنك التوضيح أكثر ؟

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

RE: كيف اعرف رقم بداية الاسبوع الحالي - mrnooo2000 - 10-06-18

كود :
       Dim dayOfWeek = CInt(DateTime.Today.DayOfWeek + 1)  '+1 to statr week at saturday
       Dim startOfWeek = DateTime.Today.AddDays(-1 * dayOfWeek)
       Dim endOfWeek = DateTime.Today.AddDays(7 - dayOfWeek).AddSeconds(-1)
       DateTimePicker1.Value = startOfWeek
       DateTimePicker2.Value = endOfWeek

اضافة 1 فى السطر الاول لبداية الاسبوع من السبت
بدون 1 اذا كانت بداية الاسبوع الاحد

RE: كيف اعرف رقم بداية الاسبوع الحالي - elgokr - 10-06-18

اخى الحبيب الرجاء التوضيح اكثر
البحث فى قاعدة البيانات او ماذا
واذا كانت قاعدة بيانات ما نوع قاعدة البيانات

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

طبق الكود الاستعلام التالى مع اخذ بالاعتبار تغيير المسميات
كود :
SELECT * FROM nametable WHERE startdate >= date&time AND stopdate <= date&time

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


RE: كيف اعرف رقم بداية الاسبوع الحالي - alipro - 13-06-18

(10-06-18, 02:27 AM)mrnooo2000 كتب :
كود :
       Dim dayOfWeek = CInt(DateTime.Today.DayOfWeek + 1)  '+1 to statr week at saturday
       Dim startOfWeek = DateTime.Today.AddDays(-1 * dayOfWeek)
       Dim endOfWeek = DateTime.Today.AddDays(7 - dayOfWeek).AddSeconds(-1)
       DateTimePicker1.Value = startOfWeek
       DateTimePicker2.Value = endOfWeek

اضافة 1 فى السطر الاول لبداية الاسبوع من السبت
بدون 1 اذا كانت بداية الاسبوع الاحد

مشكور جدا اخي العزيز
مشكور جدا اخي العزيز تحياتي