我知道WeekDay可以取,我的意思不是要取0-7的数字
我想的是用WeekDay取之后,就换成"星期一""星期二"这样的大写形式

*** 但是规定的是不能用If判断,用简单的算法来实现

不知道有没有哪位能解决,切记不用IF判断...

Private Sub Command1_Click()
'----------------------------------------------
WeekStr = "一二三四五六日"
Text1 = "星期" & Mid(WeekStr, Weekday(Now, vbSunday), 1)
'----------------------------------------------
Command1.Caption = Weekdayname(Weekday(Now, vbSunday), , 2) ' 2 stead for vbMonday
End Sub

或用select语句

[此贴子已经被作者于2006-10-28 23:18:28编辑过]

WeekdayName(Weekday(Now, 7))

感谢SLORE的方法!!