[alipro]

(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 اذا كانت بداية الاسبوع الاحد

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

---

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