Private Sub Command1_Click()
'调用
Dim mdate As Date
mdate = Now
Debug.Print test(mdate)
End Sub
Private Function test(ByVal mdate As Date) As String
Dim i As Long
i = Weekday(mdate, vbMonday)
Dim s As String
s = "一二三四五六日"
test = "星期" + Mid(s, i, 1)
End Function
Dim l As Long
Dim strWeek As String
l = Weekday(Now)
Select Case l
Case 1
strWeek = "星期日"
Case 2
strWeek = "星期一"
Case 3
strWeek = "星期二"
Case 4
strWeek = "星期三"
Case 5
strWeek = "星期四"
Case 6
strWeek = "星期五"
Case 7
strWeek = "星期六"
End Select
Print strWeek
End Sub