龙空技术网

【7】一天一个VBA函数学习-DateDiff

小尹微课堂 198

前言:

今天我们对“datediffjs”都比较看重,朋友们都需要了解一些“datediffjs”的相关知识。那么小编同时在网上收集了一些有关“datediffjs””的相关内容,希望姐妹们能喜欢,小伙伴们快快来学习一下吧!

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

根据我的办公实例,今天向你推荐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<date2,返回正数,反之负数。

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 :从新年的第一个整周开始【示例】

插入一个模块,输入以下代码:

DateDiff函数示例及结果代码

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

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

标签: #datediffjs