Private Sub Command1_Click()
MsgBox IsWeekday(Text1.Text)
End Sub
Private Sub Form_Load()
Text1.Text = Date
End Sub
Private Function IsWeekday(ByVal InDate As Date) As Integer
IsWeekday = DateDiff("ww", Format(CStr(InDate), "yyyy-mm-01"), InDate)
MsgBox "星期:" & Weekday(InDate) - 1
End Function