小伙伴，晚上好~~~在计划制定、工程量实施完成进度核算等方面，我们一般要了解两段时间的差值。

根据我的办公实例，今天向你推荐DateDiff函数，这个函数的全拼为：DateDifferent，直译也就是”日期间差异“的意思。

【语法】

DateDiff()函数返回两个指定的时间间隔之间的差值。

DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])，与DateAdd函数用法类似。

【解释】

Interval：这个参数是必需的。可以采用以下的形式：

1. d：按天数计算
2. m：按月份计算
3. y：按天数计算（这个等同于1，不要与4混淆）
4. yyyy：按年份计算
5. w：按照星期计算（这个与DateAdd函数不同）
6. ww：按照星期计算
7. q：按照季度计算
8. h：按照小时计算
9. n：按照分钟计算（注意这里是n，不是m，m指的是月份，参照2）
10. s：按照秒钟计算

Date1 和 Date2 ：必需的日期参数，date1<date2，返回正数，反之负数。

Firstdayofweek： 可选参数。指定一周开始的第一天是周几。它可以采取以下值：

1. 0 = vbUseSystemDayOfWeek：按照操作系统设定
2. 1 = vbSunday ：星期天
3. 2 = vbMonday ：星期一
4. 3 = vbTuesday ：星期二
5. 4 = vbWednesday ：星期三
6. 5 = vbThursday ：星期四
7. 6 = vbFriday ：星期五
8. 7 = vbSaturday ：星期六

Firstweekofyear：可选参数。指定一年开始的第一周。 它可以采取以下值：

1. 0 = vbUseSystem ：按照操作系统设定
2. 1 = vbFirstJan1 ：从1月1日发生的那一周开始(默认)
3. 2 = vbFirstFourDays ：从新年至少有四天的一周开始
4. 3 = vbFirstFullWeek ：从新年的第一个整周开始

【示例】

插入一个模块，输入以下代码：

Sub DateDiff函数示例()

Dim a As Date, m As Date

Dim b, c, d, e, f, g, h, i, j, k

a = CDate("2018/4/7")

m = CDate("2018/1/1")

b = DateDiff("d", m, a)'按天计算

c = DateDiff("m", m, a) '按月计算

d = DateDiff("y", m, a) '按天计算

e = DateDiff("w", m, a) '按周计算

f = DateDiff("ww", m, a) '按周计算

g = DateDiff("q", m, a) '按季度计算

h = DateDiff("yyyy", m, a) '按年计算

a = Now

m = DateAdd("m", 0 - b, a)

i = DateDiff("h", m, a) '按小时计算

j = DateDiff("n", m, a) '按分钟计算

k = DateDiff("s", m, a) '按秒计算

End Sub

小伙伴儿们，学会了吗？去试试吧，有什么问题，欢迎在评论区讨论~~~