提取星期几的api函数怎么实现。为设置条件语句用。。。
大家知道Time控件一般能提供日期,比如某某年某某月某某日。。。。
请问我想通过日期设置条件怎么实现,
例如:
if 星期一 then
。。。
elseif 星期二 then
。。。。
。。。。。
end if
[解决办法]
Option Explicit
Private Sub Form_Load()
Dim n As Integer
Dim week As String
n = Weekday(Date, vbSunday)
week = WeekdayName(n, False, vbSunday)
Text1 = week
If week = "星期二 " Then
MsgBox "日期是星期二 "
End If
End Sub
这样就ok了。。。。。。。。。。。。。。。。。。。。。。