8、Excel VBA编程实用技巧与操作详解

Excel VBA编程实用技巧与操作详解

1. Weekday函数

Weekday函数用于返回一个介于1（星期日）到7（星期六）之间的整数，该整数代表日期表达式对应的星期几，其语法如下：

Weekday (dateexpression)

示例代码：

MsgBox WeekDay("6-Mar-2003")

此代码将返回值5，即星期四。

1.1 应用场景

• 默认日期设置 ：若要让日期始终默认显示为一周中的特定某一天，可使用该函数。例如，若要让日期始终显示当前周的周五，则可使用以下公式：

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