目录
索引 🔎︎

# WeekDay 函数

返回与由 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