Excel VBA 编程基础 -- 日期与时间(二)- 日期(二)

今天接着讨论有关 Date 的函数。

5. DateDiff 函数

由于日期/时间的复杂性，想得出两个日期之间的差值是比较麻烦的，DateDiff 函数就是用来解决这个问题的。

DateDiff 的一般形式为：

DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]])

其中：

interval：与 DateAdd 函数中的 interval 相同
date1, date2：两个日期表达式
firstdayofweek：可选参数，指定哪天为一周的第一天，如果不指定，则默认星期天为一周的第一天
firstweekofyear：可选参数，指定哪周为一年的第一周，如果不指定，则默认 1 月 1 日所在的周为一年的第一周

firstdayofweek 的取值如下表所示：

图1 firstdayofweek 的取值

firstweekofyear 的取值如下表所示：

图2 firstweekofyear 的取值

DateDiff 的返回值

类型：Variant (Long) ，Variant 类型，含有一个 Long 值
意义：两个日期的差值，具体意义取决于 interval：

如果 interval 是 d，表示两个日期相差的天数
如果 interval 是 m，表示两个日期相差的月数
以此类推

下面还是来看例子。

例1. 使用 DateAdd 和 DateDiff 的简单例子

Dim date1 As DateDim date2 As DateDim diff As Variantdiff = 10date1 = Date()date2 = DateAdd("d", diff, date1)Ifdiff = DateDiff("d", date1, date2) Then  Debug.Print "Ok"ELse  Debug.Print "Something must be wrong!"EndIf

在这个例子中，date1 是当前日期，date2 是 10 天后的今天。用 DateDiff 函数求两日期之差，应该是两个日期相差的天数，这个天数应该等于 DateAdd 加上的天数，也就是 diff。

注意：在 DateDiff(interval, date1, date2) 中，实际的操作是 date2 - date1。因此，如果调换 date1 和 date2 的位置，函数返回值相同但符号相反，即：

DateDiff(interval, date1, date2) = -DateDiff(interval, date2, date1)

例2. 使用 firstdayofweek 和 firstweekofyear 参数

图3 使用 firstdayofweek 和 firstweekofyear 参数的 DateDiff

实际测试表明，DateDiff 函数的 firstdayofweek 和 firstwekofyear 不起作用，无论你使用什么值，DateDiff 的结果都是一样的。

6. DatePart 函数

DatePart 的一般格式为：

DatePart(interval, date[, firstdayofweek[, firstweekofyear]])

其中，interval 与 DateAdd 和 DateDiff 函数中的 interval 相同。date 是一个 Variant(Date) 类型的日期表达式，firstdayofweek 和 firstweekofyear 与 DateDiff 函数中的相同。

DatePart 返回值：

类型：Variant(Integer)
意义：interval 所指定的部分

例1. DatePart 的简单应用

Dim myD As DateDim dp As VariantmyD = Date()dp = DatePart("q", myD)  ' 返回 myD 所在的季度dp = DatePart("n", myD)  ' 返回 myD 所包含时间的分钟数，                         ' 因为 Date() 不含时间，因此 dp 为 0

前面我们说过， DateDiff 虽然带有 firstdayofweek 和 firstweekofyear 参数，但并不起作用。但在 DatePart 中，这两个参数是有意义的，见下面两例。

例2. firstdayofweek 参数的作用

图4 fistdayofweek 参数对 DatePart 的影响

DatePart("w", date, ...) 是返回 date 中的 weekday，这个 weekday 并不是通常所谓的星期几，要获得这个数对应于星期几，需要使用 WeekdayName 函数，如例中所示。但 WeekdayName 函数需要 firstdayofweek 参数，这个参数要与前面的 DatePart 中所使用的 firstdayofweek 要一致，否则将得到错误的结果。

例3. firstweekofyear 参数对 DatePart 的影响

图5 firstweekofyear 参数对 DatePart 的影响

实际上，firstdayofweek 和 firstweekofyear 参数对 DatePart("ww", ...) 都有影响，图5 只展示了 firstweekofyear 参数的作用。

DatePart("ww", date, ...) 是返回 date 中的日期在该年中的周数。譬如在上面的例子中，当前日期是 4 月 17 日，如果使用 vbFirstJan1 作为 firstweekofyear 参数的值，则 4 月 17 日处于 2026 年的第 16 周；而如果使用 vbFirstFullWeek 作为 firstweekofyear 参数的值，则处于第 15 周。

基于以上的影响，在使用 DatePart 获取周的信息时，要小心设置 firstdayofweek 和 firstweekofyear 参数的值。一般使用 Windows 系统的设置即可，即指定 vbUseSystemDayOfWeek 作为 firstdayofweek 参数的值，而指定 vbUseSystem 作为 firstweekofyear 参数的值。

7. Weekday 函数

Weekday 函数的一般格式：

Weekday(date[, firstdayofweek])

其中，date 是一个 Variant(Date) 型、数值型、字符串型的日期表达式，firstdayofweek 与上面函数的相应参数相同。

Weekday 的返回值：

类型：Variant(Integer)
意义：一周中的第几天

Weekday 的返回值列于下表：

图6 Weekday 函数的返回值

8. WeekdayName 函数

WeekdayName 函数的一般格式：

WeekdayName(weekday[, abbreviate[, firstdayofweek]])

其中，weekday 就是 Weekday 函数的返回值。abbreviate 是一个可选的 Boolean 类型参数，如果为 True，则返回星期几的简写形式（譬如，“星期五”的简写形式是“周五”），如果没有指定，或指定为 False，则不使用简写形式。firstdayofweek 与上面函数中的 firstdayofweek 相同。

WeekdayName 的返回值：

类型：String
意义：字符串/名字形式的星期几

例1. Weekday 和 WeekdayName 函数的简单例子

图7 Weekday 和 WeekdayName 函数的简单例子

在这个例子中，获取 wkx 对应的名字形式时，使用与获取数值形式不同的 firstdayofweek 参数值，结果导致名字错误。这个例子说明：对于 Weekday 和 WeekdayName 函数，要使用相同的 firstdayofweek 参数值，才能得到正确的结果，否则就会出错。