小伙伴,晚上好~~~在计划制定、工程量实施完成进度核算等方面,我们一般要了解两段时间的差值。
根据我的办公实例,今天向你推荐DateDiff函数,这个函数的全拼为:DateDifferent,直译也就是”日期间差异“的意思。
【语法】
DateDiff()函数返回两个指定的时间间隔之间的差值。
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]]),与DateAdd函数用法类似。
【解释】
Interval:这个参数是必需的。可以采用以下的形式:
- d:按天数计算
- m:按月份计算
- y:按天数计算(这个等同于1,不要与4混淆)
- yyyy:按年份计算
- w:按照星期计算(这个与DateAdd函数不同)
- ww:按照星期计算
- q:按照季度计算
- h:按照小时计算
- n:按照分钟计算(注意这里是n,不是m,m指的是月份,参照2)
- s:按照秒钟计算
Date1 和 Date2 :必需的日期参数,date1
Firstdayofweek: 可选参数。指定一周开始的第一天是周几。它可以采取以下值:
- 0 = vbUseSystemDayOfWeek:按照操作系统设定
- 1 = vbSunday :星期天
- 2 = vbMonday :星期一
- 3 = vbTuesday :星期二
- 4 = vbWednesday :星期三
- 5 = vbThursday :星期四
- 6 = vbFriday :星期五
- 7 = vbSaturday :星期六
Firstweekofyear:可选参数。指定一年开始的第一周。 它可以采取以下值:
- 0 = vbUseSystem :按照操作系统设定
- 1 = vbFirstJan1 :从1月1日发生的那一周开始(默认)
- 2 = vbFirstFourDays :从新年至少有四天的一周开始
- 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