如何根据当前系统日期求出本周，本月，本年，上周，上月，上年的第一天？

[mql52]

Dim intWeekDay as integer
Dim stDay as DateTime '本周第一天
Dim PstDay as DateTime '上周第一天
intWeekDay = DatePart(DateInterval.Weekday, Today) '取得今天是星期几
stDay = DateAdd(DateInterval.Day, -1 * intWeekDay, Today) '计算本周第一天的日期
PstDay = DateAdd(DateInterval.Day, -7 , stDay) '计算上周第一天的日期
我这样做，但始终取出的是上一天的，请各位大大指点。

在winform上有两个DateTimePicker控件，分别为DateTimePicker1和DateTimePicker2
还有一个是ComboBox1,在ComboBox1中有“今天，本周，本月，本年，昨天，上周，上月，上年”
我的想法是在选择本周时DateTimePicker1显示本周的第一天，DateTimePicker2显示本周的最后一天。其它以此类推
搞了半天也没搞懂怎么实现。

[-过客-]

参考 C#根据当前时间确定日期范围（本周、本月、本季度、本年度）

[pt1314917]

//今天
                DateTime.Now.Date.ToShortDateString();
                //昨天，就是今天的日期减一
                DateTime.Now.AddDays(-1).ToShortDateString();
                //明天，同理，加一
                DateTime.Now.AddDays(1).ToShortDateString();

                //本周(要知道本周的第一天就得先知道今天是星期几，从而得知本周的第一天就是几天前的那一天，要注意的是这里的每一周是从周日始至周六止
                DateTime.Now.AddDays(Convert.ToDouble((0 - Convert.ToInt16(DateTime.Now.DayOfWeek)))).ToShortDateString();
                DateTime.Now.AddDays(Convert.ToDouble((6 - Convert.ToInt16(DateTime.Now.DayOfWeek)))).ToShortDateString();
                //如果你还不明白，再看一下中文显示星期几的方法就应该懂了
                //由于DayOfWeek返回的是数字的星期几，我们要把它转换成汉字方便我们阅读，有些人可能会用switch来一个一个地对照，其实不用那么麻烦的              
                string[] Day = new string[] { "星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六" };
                Day[Convert.ToInt16(DateTime.Now.DayOfWeek)];

                //上周，同理，一个周是7天，上周就是本周再减去7天，下周也是一样
                DateTime.Now.AddDays(Convert.ToDouble((0 - Convert.ToInt16(DateTime.Now.DayOfWeek))) - 7).ToShortDateString();
                DateTime.Now.AddDays(Convert.ToDouble((6 - Convert.ToInt16(DateTime.Now.DayOfWeek))) - 7).ToShortDateString();
                //下周
                DateTime.Now.AddDays(Convert.ToDouble((0 - Convert.ToInt16(DateTime.Now.DayOfWeek))) + 7).ToShortDateString();
                DateTime.Now.AddDays(Convert.ToDouble((6 - Convert.ToInt16(DateTime.Now.DayOfWeek))) + 7).ToShortDateString();
                //本月,很多人都会说本月的第一天嘛肯定是1号，最后一天就是下个月一号再减一天。当然这是对的
                //一般的写法
                DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString() + "1"; //第一天
                DateTime.Parse(DateTime.Now.Year.ToString() + DateTime.Now.Month.ToString() + "1").AddMonths(1).AddDays(-1).ToShortDateString();//最后一天

                //巧用C#里ToString的字符格式化更简便
                DateTime.Now.ToString("yyyy-MM-01");
                DateTime.Parse(DateTime.Now.ToString("yyyy-MM-01")).AddMonths(1).AddDays(-1).ToShortDateString();

                //上个月，减去一个月份
                DateTime.Parse(DateTime.Now.ToString("yyyy-MM-01")).AddMonths(-1).ToShortDateString();
                DateTime.Parse(DateTime.Now.ToString("yyyy-MM-01")).AddDays(-1).ToShortDateString();
                //下个月，加去一个月份
                DateTime.Parse(DateTime.Now.ToString("yyyy-MM-01")).AddMonths(1).ToShortDateString();
                DateTime.Parse(DateTime.Now.ToString("yyyy-MM-01")).AddMonths(2).AddDays(-1).ToShortDateString();
                //7天后
                DateTime.Now.Date.ToShortDateString();
                DateTime.Now.AddDays(7).ToShortDateString();
                //7天前
                DateTime.Now.AddDays(-7).ToShortDateString();
                DateTime.Now.Date.ToShortDateString();

                //本年度，用ToString的字符格式化我们也很容易地算出本年度的第一天和最后一天
                DateTime.Parse(DateTime.Now.ToString("yyyy-01-01")).ToShortDateString();
                DateTime.Parse(DateTime.Now.ToString("yyyy-01-01")).AddYears(1).AddDays(-1).ToShortDateString();
                //上年度，不用再解释了吧
                DateTime.Parse(DateTime.Now.ToString("yyyy-01-01")).AddYears(-1).ToShortDateString();
                DateTime.Parse(DateTime.Now.ToString("yyyy-01-01")).AddDays(-1).ToShortDateString();
                //下年度
                DateTime.Parse(DateTime.Now.ToString("yyyy-01-01")).AddYears(1).ToShortDateString();
                DateTime.Parse(DateTime.Now.ToString("yyyy-01-01")).AddYears(2).AddDays(-1).ToShortDateString();

                //本季度，很多人都会觉得这里难点，需要写个长长的过程来判断。其实不用的，我们都知道一年四个季度，一个季度三个月
                //首先我们先把日期推到本季度第一个月，然后这个月的第一天就是本季度的第一天了
                DateTime.Now.AddMonths(0 - ((DateTime.Now.Month - 1) % 3)).ToString("yyyy-MM-01");
                //同理，本季度的最后一天就是下季度的第一天减一
                DateTime.Parse(DateTime.Now.AddMonths(3 - ((DateTime.Now.Month - 1) % 3)).ToString("yyyy-MM-01")).AddDays(-1).ToShortDateString();
                //下季度，相信你们都知道了。。。。收工
                DateTime.Now.AddMonths(3 - ((DateTime.Now.Month - 1) % 3)).ToString("yyyy-MM-01");
                DateTime.Parse(DateTime.Now.AddMonths(6 - ((DateTime.Now.Month - 1) % 3)).ToString("yyyy-MM-01")).AddDays(-1).ToShortDateString();
                //上季度
                DateTime.Now.AddMonths(-3 - ((DateTime.Now.Month - 1) % 3)).ToString("yyyy-MM-01");
                DateTime.Parse(DateTime.Now.AddMonths(0 - ((DateTime.Now.Month - 1) % 3)).ToString("yyyy-MM-01")).AddDays(-1).ToShortDateString();

[mql52]

谢谢上面两位大哥给的方案，不过我是刚接触vb.net感觉比c#好学点，呵呵
有没有vb.net的实现方法

[-过客-]

转一下就是了

Dim dt As DateTime = DateTime.Now        '当前时间
Dim dayOfWeek As Integer = Convert.ToInt32(dt.DayOfWeek.ToString("d"))
Dim startWeek As DateTime = dt.AddDays(1 - (If((dayOfWeek = 0), 7, dayOfWeek)))        '本周周一
Dim endWeek As DateTime = startWeek.AddDays(6)        '本周周日
Dim startMonth As DateTime = dt.AddDays(1 - dt.Day)        '本月月初
Dim endMonth As DateTime = startMonth.AddMonths(1).AddDays(-1)        '本月月末
'DateTime endMonth = startMonth.AddDays((dt.AddMonths(1) - dt).Days - 1); //本月月末
Dim startQuarter As DateTime = dt.AddMonths(0 - (dt.Month - 1) Mod 3).AddDays(1 - dt.Day)        '本季度初
Dim endQuarter As DateTime = startQuarter.AddMonths(3).AddDays(-1)        '本季度末
Dim startYear As New DateTime(dt.Year, 1, 1)        '本年年初
Dim endYear As New DateTime(dt.Year, 12, 31)        '本年年末

[KEL-1]

怎么得到今天是今年的第几天呢？

[XZ_SS]

收藏收藏 很好應用
謝謝