7、VBA编程：日期、按键模拟、消息框与运算符全解析

VBA编程：日期、按键模拟、消息框与运算符全解析

1. Weekday函数的运用

Weekday函数能够返回一个介于1（周日）到7（周六）之间的整数，以此来表示日期表达式对应的星期几。其语法格式为：

Weekday (dateexpression)

例如：

MsgBox WeekDay("6-Mar-2003")

运行此代码会返回值5，代表的是星期四。

该函数在某些场景下十分实用，比如你希望日期始终默认显示为一周中的某一天。若要让日期显示当前周的周五，可以使用如下公式：

MsgBox Now - WeekDay(Now) + 6

因为Weekday函数从周日开始计数，所以先将当前日期回溯到上一个周日，再加上6就得到了周五。

此外，它还能用于计算两个日期之间的工作日数量，示例代码如下：

For n = DateValue("1-Jan-03") To DateValue("18-Jan-03")
    If Weekday(n) <> 1 Or Weekday(n) <> 7 Then
        WorkDay = WorkDay + 1
    End If
Next n
MsgBox WorkDay

运行后