15-06-18, 02:28 AM
15-06-18, 03:06 AM
السنة
المصدر https://stackoverflow.com/a/640023/3814729
الشهر
المصدر https://stackoverflow.com/a/37144310/3814729
كود :
Dim year As New DateTime(DateTime.Now.Year, 1, 1)
المصدر https://stackoverflow.com/a/640023/3814729
الشهر
كود :
Dim dateFrom = New DateTime(DateTime.Now.Year, DateTime.Now.Month, 1)
Dim dateTo = datefrom.AddMonths(1).AddDays(-1)
المصدر https://stackoverflow.com/a/37144310/3814729
15-06-18, 04:24 AM
كود بداية الاسبوع ونهاية الاسبوع
اليوم:
الامس:
الشهر الحالى:
الشهر الماضي:
العام العالى:
العام الماضي:
كود :
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
بالرد فى الموضوع السابق ..
بخصوص اليوم و الامس
اليوم:
كود :
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"))
اعتقد الان لديك جميع ما فى القائمة
بدلاً من اعادة فتح عدة مواضيع لنفس الكود
تحياتى لك
وتمنياتى لك التوفيق
17-06-18, 10:29 PM
مشكور جدا بارك الله فيك
18-06-18, 02:02 AM
الشكر لله
تحياتى لك
وتمنياتى لك التوفيق