取今天是星期几,有没有简略的算法 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 取今天是星期几,有没有简略的算法

标题：取今天是星期几,有没有简略的算法

只看楼主

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

楼主

问题点数：0 回复次数：4

取今天是星期几,有没有简略的算法

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

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

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

搜索更多相关主题的帖子: 算法　简略　

2006-10-28 22:22

slore

等　级：贵宾
威　望：16
帖　子：1108
专家分：0
注　册：2005-7-1

第 2 楼

得分:0

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