VBA中DateDiff函数⽤法
返回  Variant  ( Long)  的值，表⽰两个指定⽇期间的时间间隔数⽬。
语法
DateDiff( interval, date1, date2 [ , firstdayofweek [ , firstweekofyear ]] )
DateDiff 函数语法中有下列命名参数：
部分描述
interval必要。字符串表达式，表⽰⽤来计算 date1 和 date2  的时间差的时间间隔
Date1，date2必要。 Variant  ( Date) 。计算中要⽤到的两个⽇期。
Firstdayofweek可选。指定⼀个星期的第⼀天的常数。 如果未予指定， 则以星期⽇为第⼀天firstweekofyear可选。指定⼀年的第⼀周的常数。 如果未予指定， 则以包含1  ⽉ 1  ⽇的星期为第⼀周
设置
interval  参数的设定值如下：
设置描述设置描述
yyyy年w⼀周的⽇数
q季ww周
m⽉h时
y⼀年的⽇数n分钟
d⽇s秒firstdayofweek  参数的设定值如下：
常数值描述
vbUseSystem0使⽤ NLS API  设置
vbSunday1星期⽇（缺省值）
vbMonday2星期⼀
vbTuesday3星期⼆
vbWednesday4星期三
vbThursday5星期四
vbFriday6星期五
vbSaturday7星期六
常数值描述
vbUseSystem0⽤ NLS API  设置。datediff是字符型函数
vbFirstJan11从包含  1  ⽉ 1  ⽇的星期开始（缺省值）
vbFirstFourDays2从第⼀个其⼤半个星期在新的⼀年的⼀周开始
vbFirstFullWeek3从第⼀个⽆跨年度的星期开始。
说明
DateDiff 函数可⽤来决定两个⽇期之间所指定的时间间隔数⽬。例如，可以使⽤ DateDiff 来计算两个
⽇期之间相隔⼏⽇， 或计算从今天起到年底还有多少个星期。为了计算 date1 与 date2  相差的⽇数，可以使⽤“⼀年的⽇数” (y)  或“⽇” (d) 。当 interval 是“⼀周的⽇数” (w)  时，DateDiff 返回两⽇期间的周数。如果 date1 是星期⼀， DateDiff 计算到 date2 为⽌的星期⼀的个数。这个数包含
date2 但不包含 date1 。不过，如果 interval 是“周” (ww)，则DateDiff 函数返回两⽇期间的“⽇历周”数。由计算 date1 与 date2 之间星期的个数⽽得。如果 date2  刚好是星期⽇，则 date2 也会被加进 DateDiff 的计数结果中；但不论 date1  是否为星期⽇，都不将它算进去。如果 date1  ⽐ date2  来得晚，则 DateDiff 函数的返回值为负数。firstdayofweek 参数会影响使⽤时间间隔符号 “W”  或“WW”  计算的结果。如果 date1  或 date2  是⽇期⽂字，则指定的年份成为该⽇期的固定部分。 但是，如果 date1  或 date2  ⽤双引号  (" ")  括起来，且年份略⽽不提，则在每次计
算表达式 date1  或 date2  时，当前年份都会插⼊到代码之中。 这样就可以书写适⽤于不同年份的程序代码。在计算  12  ⽉ 31  ⽇和来年的  1  ⽉ 1  ⽇的年份差时，DateDiff 返回  1  表⽰相差⼀个年份，虽然实际上只相差⼀天⽽已。
DateDiff  函数⽰例
本⽰例使⽤ DateDiff 函数来显⽰某个⽇期与今⽇相差⼏天。
Dim TheDate As Date    '  声明变量。
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。