Module
Contents
Index 🔎︎

# WeekDay 函数

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

## 语法：

    WeekDay (Number)

## 返回值：

整数

## 参数：

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