7、VBA编程实用技巧与操作指南

VBA编程实用技巧与操作指南

1. Weekday函数的使用

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

Weekday (dateexpression)

示例代码：

MsgBox WeekDay("6-Mar-2003")

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

1.1 应用场景

1.1.1 默认到特定星期几

若希望日期始终默认到特定的星期几，可使用该函数。例如，若要使日期始终显示当前周的周五，则可使用以下公式：

MsgBox Now - WeekDay(Now) + 6

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

1.1.2 计算两个日期之间的工作日数量

以下代码可计算两个日期之间的工作日数量：

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