DateTime 求本月月末，本月月初，本周周日，本周周一，本季度末，本年年初，本年年末

 Dim dt As DateTime = DateTime.Now
 '当前时间

 Dim startWeek As DateTime = dt.AddDays(1 - Convert.ToInt32(dt.DayOfWeek.ToString("d")))
 '本周周一

 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)
 '本年年末