新手求教： 如何显示星期？

zhu642876

有直接显示星期的字符吗？  如@min显示分那样？  或者如何使用@wday显示星期？  谢谢

netegg

@WDAY，多看看帮助

zhu642876

回复 2# netegg   这个只显示是这星期的第几天  只显示1，2，3等数字

afan

1. Local $Week[7] = ['星期日', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六']
   
2. MsgBox(0, 0, '今天是：' & $Week[@WDAY - 1])

复制代码

水木子

1. MsgBox(0, '今天是', myWeek(@WDAY))
   
2. 
   
3. Func myWeek($iDayNum, $iShort = 0)
   
4.         ;==============================================
   
5.         ; Local Constant/Variable Declaration Section
   
6.         ;==============================================
   
7.         Local $aDayOfWeek[8]
   
8.        
   
9.         $aDayOfWeek[1] = "星期天"
   
10.         $aDayOfWeek[2] = "星期一"
    
11.         $aDayOfWeek[3] = "星期二"
    
12.         $aDayOfWeek[4] = "星期三"
    
13.         $aDayOfWeek[5] = "星期四"
    
14.         $aDayOfWeek[6] = "星期五"
    
15.         $aDayOfWeek[7] = "星期六"
    
16.         Select
    
17.                 Case Not StringIsInt($iDayNum) Or Not StringIsInt($iShort)
    
18.                         SetError(1)
    
19.                         Return ""
    
20.                 Case $iDayNum < 1 Or $iDayNum > 7
    
21.                         SetError(1)
    
22.                         Return ""
    
23.                 Case Else
    
24.                         Select
    
25.                                 Case $iShort = 0
    
26.                                         Return $aDayOfWeek[$iDayNum]
    
27.                                 Case $iShort = 1
    
28.                                         Return StringLeft($aDayOfWeek[$iDayNum], 3)
    
29.                                 Case Else
    
30.                                         SetError(1)
    
31.                                         Return ""
    
32.                         EndSelect
    
33.         EndSelect
    
34. EndFunc   ;==>myWeek

复制代码

netegg

数字知道了，难道不会替换吗，都是唯一值, 要是用英文的星期名倒是有另一种做法，用中文的只有替换

zhu642876

回复 4# afan
谢谢  非常感谢

hzxymkb

哈哈
afan 真是无处不在呀！
注意哦！他是高手！

lynfr8

afan确实是高手！
顺便拓展一下
UDF-date 里面有英文星期的相关函数

1. #include <Date.au3>
   
2. ; 给定日期的周的日序号
   
3. $iWeekday = _DateToDayOfWeek (@YEAR, @MON, @MDAY)
   
4. ; 与@Wday相同
   
5. MsgBox(4096, "", "Today is a : " & _DateDayOfWeek($iWeekDay))

复制代码