WeekDay Function (BASIC)

返回与由 DateSerial 或 DateValue 函数生成的工作日 (以顺序日期数表示) 相对应的数字。

语法:


WeekDay (Number)

返回值:

整数

参数:

「数字」: 含有用于计算一周 (1-7) 中的第几天的顺序日期数的整数表达式。

以下示例使用 WeekDay 函数确定输入的日期是星期几。

错误代码:

5 无效的过程调用

示例:


Sub ExampleWeekDay
Dim sDay As String
' 返回并显示星期几
    Select Case WeekDay( Now )
        Case 1
            sDay="Sunday"
        Case 2
            sDay="Monday"
        Case 3
            sDay="Tuesday"
        Case 4
            sDay="Wednesday"
        Case 5
            sDay="Thursday"
        Case 6
            sDay="Friday"
        Case 7
            sDay="Saturday"
    End Select
    MsgBox "" + sDay,64,"今天是"
End Sub