主题：时间格式能包含星期吗？

蓝老师：

时间格式能直接带出星期么？

蓝老师：提取的值怎么变成中文

Select Case e.DataCol.Name
    Case "日期"
    If e.NewValue IsNot Nothing Then
        e.DataRow("月") = e.NewValue.Month
e.DataRow("日") = e.NewValue.Day
e.DataRow("星期") = e.NewValue.DayOfWeek
    End If
End Select

从窗口的DateTimePicker向表中月份列填充月份数据，星期列填充中文星期，该怎样做？

试写了下面代码，不知如何下手

Dim tm As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker1")

Dim r As Row = Tables("表A").AddNew()

 Tables("表A").Current("月份")=e.Sender.WriteValue(format(tm,"mm") )

r.save()