求一个function过程！ - 编程论坛

#2

xyxcc1772017-11-27 07:55

程序代码：

Public Function GetWeekDayForChina(Byval num As Integer) As String
Select Case num
   Case 0
   GetWeekDayForChina="星期一"

Case 1
   GetWeekDayForChina="星期二"

Case 2
   GetWeekDayForChina="星期三"

Case 3
   GetWeekDayForChina="星期四"

Case 4
   GetWeekDayForChina="星期五"

Case 5
   GetWeekDayForChina="星期六"

Case 6
   GetWeekDayForChina="星期天"
End Select

End Function

#3

肇励影2017-11-27 10:38

回复 2楼 xyxcc177

我记得VB好像有个枚举是Weekdays，不知道能不能用这个？

#4

风吹过b2017-11-27 11:26

以下是引用肇励影在2017-11-27 10:38:15的发言：

我记得VB好像有个枚举是Weekdays，不知道能不能用这个？

Weekday 函数，返回序号

format 返回英文
Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#
MyStr = Format(MyTime, "h:m:s")   ' 返回 "17:4:23"。
MyStr = Format(MyTime, "hh:mm:ss AMPM")   ' 返回 "05:04:23 PM"。
MyStr = Format(MyDate, "dddd, mmm d yyyy")   ' 返回 "Wednesday, Jan 27 1993"。

自己整函数吧，多分支函数是一个好主意。