用系统函数获取当前季度

需引用Microsoft.VisualBasic 命名空间

这是设置一个dropdownlist的值为当前季度

ddlSeason.SelectedValue = DateAndTime.DatePart(DateInterval.Quarter, DateTime.Now, Microsoft.VisualBasic.FirstDayOfWeek.Monday, FirstWeekOfYear.Jan1) + "";

Microsoft.VisualBasic.FirstDayOfWeek.Monday 表示每周第一天为星期一(美国及欧洲那边是星期日)

FirstWeekOfYear.Jan1 一年的第一周为一月份的第一周