Function Get7days(ByVal SetDay As Date) As ArrayList 'SetDay 用户所选择的天 Dim DayInWeek As Integer = SetDay.DayOfWeek 'SetDay为一周内的第几天? Dim iDay As Integer = 0 For iDay = 0 To 6 'GetWeekDays.Add(SetDay.AddDays(iDay - DayInWeek + 1))'以周一为一周的第一天 '将包括SetDay在内的7天赋值ArryList GetWeekDays.Add(SetDay.AddDays(iDay - DayInWeek)) '以周日为一周的第一天(正路!) Next Return GetWeekDays '返回ArrayList End Function这是我的程序的一部分!!! 献丑了!!! ^_^
switch (值)
{
case "Monday":
。。可让其返回中文。
break;
}
TextBox1.Text=a.DayOfWeek.ToString();
Dim DayInWeek As Integer = SetDay.DayOfWeek 'SetDay为一周内的第几天?
Dim iDay As Integer = 0
For iDay = 0 To 6
'GetWeekDays.Add(SetDay.AddDays(iDay - DayInWeek + 1))'以周一为一周的第一天
'将包括SetDay在内的7天赋值ArryList
GetWeekDays.Add(SetDay.AddDays(iDay - DayInWeek)) '以周日为一周的第一天(正路!) Next
Return GetWeekDays '返回ArrayList
End Function这是我的程序的一部分!!! 献丑了!!! ^_^
System.DateTime.Now.DayOfWeek