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

2022-10-11 21:07:56 196 0
魁首哥

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

根据我的办公实例,今天向你推荐 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

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

【示例】

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

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

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

收藏
分享
海报
0 条评论
196
上一篇:解决OpenSSL在C++/PHP下AES加密结果不一致问题 下一篇:3分钟短文:说说Laravel模型中还算常用的2个“关系”

本站已关闭游客评论,请登录或者注册后再评论吧~

忘记密码?

图形验证码