[elgokr]

كود بداية الاسبوع ونهاية الاسبوع

كود :

       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

خاص الاخ mrnooo2000

بالرد فى الموضوع السابق ..

http://vb4arb.com/vb/showthread.php?tid=...#pid121249

---

بخصوص اليوم و الامس

اليوم:

كود :

DateTimePicker1.Value = DateTime.Today()

الامس:

كود :

DateTimePicker1.Value = DateTime.Today.AddDays(-1)

---

بخصوص الشهر الحالى و الشهر الماضى

الشهر الحالى:

كود :

DateTimePicker1.Value = CDate(Now.ToString("yyyy/MM"))

الشهر الماضي:

كود :

DateTimePicker1.Value = CDate(Now.AddMonths(-1).ToString("yyyy/MM"))

---

بخصوص العام الحالى و العام الماضي

العام العالى:

كود :

DateTimePicker1.Value = CDate(Now.ToString("yyyy/1/1"))

العام الماضي:

كود :

DateTimePicker1.Value = CDate(Now.AddYears(-1).ToString("yyyy/1/1"))

---

اعتقد الان لديك جميع ما فى القائمة

بدلاً من اعادة فتح عدة مواضيع لنفس الكود

تحياتى لك

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