VB.net
Dim week() As String = {"日曜日", "月曜日", "火曜日", "水曜日", "木曜日", "金曜日", "土曜日"}
Dim strWeek As String = week(DateTime.Today.DayOfWeek())
C#.net
string [] Day=new string []{"日曜日", "月曜日", "火曜日", "水曜日", "木曜日", "金曜日", "土曜日"};
Console.WriteLine(Day[Convert.ToInt16(DateTime.Now.DayOfWeek)]);