怎么把日期转换为星期?

Question

在VB中实现日期转换为星期。
我在看VB 的MSDN的时候看见一个叫CDOW()的函数能完成这个功能。但是却不能用，提示，子程序或函数未定义。谁能帮帮我，怎么完成这个功能啊 ？？？？

Answer 1

Private Sub Form_Load()
MsgBox Weekday("2005-1-10", vbSunday)
End Sub

Answer 2

Private Sub Command1_Click()
'星期几
    Dim i As Integer
    i = Weekday(CDate("2005-1-10"), vbSunday)
    Select Case i
        Case 1
            MsgBox "星期日"
        Case 2
            MsgBox "星期一"
        Case 3
            MsgBox "星期二"
        Case 4
            MsgBox "星期三"
        Case 5
            MsgBox "星期四"
        Case 6
            MsgBox "星期五"
        Case 7
            MsgBox "星期六"
    End Select
End Sub