1 datediff函数
这个函数回来一个Variant (Long),指定两个指定的日期之间的时刻距离数。
语法:DateDiff(interval, date1, date2, [ firstdayofweek, [ firstweekofyear ]] )
参数:
1)interval 必需。标明用于核算 date1和date2之间差异的时刻距离的字符串表达式。
2)date1、date2 必需;Variant (Date)。要在核算中运用的两个日期。
3) Firstdayofweek 可选。 指定一周的第一天的常量。 如果未指定,则会假定为周日。
4)Firstweekofyear 可选。 指定一年的第一周的常量。 如果未指定,则会假定1月1日呈现的那一周为第一周。
Interval 参数具有以下设置:
yyyy 年
q 季度
m 月
y 每年的某一日
d 天
w 工作日
ww 周
h 小时
n 分钟
s 秒
firstdayofweek 参数具有以下设置:
vbUseSystem 0 运用 NLS API 设置。
vbSunday 1 周日(默认)
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear参数具有以下设置:
vbUseSystem 0 运用 NLS API 设置。
vbFirstJan1 1 从 1 月 1 日地点的周开端(默认)。
vbFirstFourDays 2 从至少包括新的一年中的四天的那一周开端。
vbFirstFullWeek 3 从每年的第一个完好的星期开端。
能够运用 DateDiff 函数来确认两个日期之间存在的指定时刻段的数目。 例如,能够运用 DateDiff 核算两个日期之间的天数或今天与该年的最终一天之间的周数。
若要核算 date1 和 date2 之间的天数,能够运用年份中的某一天 (\"y\") 或天 (\"d\")。 当interval 的设置是(\"w\") 时,DateDiff 回来两个日期之间的周数。 如果 date1 为星期一,则 DateDiff 核算 date2 之前的星期一数。 它核算 date2 但不核算 date1。
如果interval 的设置是 (\"ww\"),则 DateDiff 函数回来这两个日期之间的日历周数。 它核算 date1 和 date2 之间的周日数。 如果它为周日,则 DateDiff 核算 date2,但它不核算 date1,即便它是周日也是如此。
如果 date1 引用的时刻点晚于 date2,则 DateDiff 函数将回来负数。 firstdayofweek 参数影响运用“w”和“ww”时刻距离符号的核算。
2 DateDiff 函数的应用实例
下面咱们看一段代码,来学习一下这个函数的实际应用:
Sub mynzD() \'求两个日期距离的函数
Dim myF, myS As Date
myF = DateValue(\"Jan 19, 2020\")
myS = DateValue(\"Feb 25, 2020\")
n = DateDiff(\"d\", myF, myS)
MsgBox n
End Sub
代码截图:
代码解读:
上述代码先声明晰一个变量myF,赋值为DateValue(\"Jan 19, 2020\"),然后再赋值 DateValue(\"Feb 25, 2020\")给第二个变量myS,然后使用DateDiff求出上述两个变量的日期差值n,最终使用对话框提示给用户。
咱们看代码的运行成果:
标明上述两个日期差37天。
3 使用DateDiff 函数求出生的天数
下面咱们再看一下这个函数的应用,咱们能够输入一个日期,然后求出这个日期和当日日期的差值,比如,咱们录入的是自己的生日,这样就能够求出自己来到这个国际总共多少天了。
代码:
Sub mynzE() \'求出生的天数
Dim myDate As Date
myDate = InputBox(\"请输入一个日期\")
Msg = \"您输入的日期和今天相隔的天数是: \" & DateDiff(\"d\", Now, myDate)
MsgBox Msg
End Sub
代码截图:
代码讲解:
上述代码使用了InputBox函数让用户录入一个日期,需要注意的是咱们使用了myDate变量来存储这个日期,但这个变量咱们声明的是Date类型,要注意录入的信息要正确。
在随后咱们会使用DateDiff函数求出这个日期和now的日期差值。
下面咱们看代码的运行成果:假设你的生日是1969-10-1日,咱们看看你在这个国际上日子的天数:
上述成果显示,总共是18648天。
即可加入考研、考公考编、四六级、计算机等级考试、教师编等【免费网课网盘群组】
易和谐资料优先在群组内补发
或者夸克APP内搜索群号:970062162
暂无评论内容