主题：请教“周”列如何实现显示星期几

老师您好！向您请教列中如何显示星期几的问题

表中有“日期”列和“周”列，日期列已在DataRowAdding事件中设置e.DataRow("考勤日期") = Date.Today()代码，周列想显示与日期列当天的星期几，我用下面的的代码：Output.Show("星期" & "日一二三四五六".Chars(Today.DayOfWeek))或

Dim Today As Date = Date.Today

Dim Names As String = "日一二三四五六"

Dim Result As String

Result = "星期" & Names.Chars(Today.DayOfWeek)

Output.Show(Result)

都没能实现”周”列，为当天是星期几，周列设置字符型、日期型都没实现。

敬请老师指导