适用于: Microsoft Office Access 2007
返回变量型(长型),指定两个指定的日期之间的时间间隔数。
语法
DateDiff(interval, date1, date2 [, firstdayofweek] [, firstweekofyear] )
DateDiff 函数的语法包含以下参数:
参数 | 说明 |
---|---|
interval | 必选。字符串表达式,该表达式为用于计算 date1 和 date2 之间的差的时间间隔。 |
date1, date2 | 必选。变量型(日期型)。表示两个要用于计算的日期。 |
firstdayofweek | 可选。常量,指定一周的第一天。如果不指定,则默认为星期日。 |
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 | 星期六 |
常量 | 值 | 说明 |
---|---|---|
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 之间的星期日的个数。如果 date2为星期日,则 DateDiff 会将其计算在内;但即使 date1 为星期日,也不会将其计算在内。
如果 date1 引用了比 date2 晚的时间点,则 DateDiff 函数返回一个负数。
firstdayofweek 参数会影响使用“w”和“ww”间隔符号的计算。
如果 date1 或 date2 为日期文本,则指定的年会成为日期的永久部分。但是,如果date1 或 date2 括在双引号 (" ") 中,并且省略了年份,则每次计算 date1 或 date2表达式时,当前年份都会插入代码中。这样即可编写用于不同年份的代码。
将 12 月 31 日与来年的 1 月 1 日相比较时,对于“年”("yyyy"),即使仅过去一天,DateDiff 也返回 1。
注释 对于 date1 和 date2,如果 Calendar 属性设置为公历,则提供的日期必须为公历。如果日历为回历,则提供的日期必须为回历。
示例
在表达式中使用 DateDiff 函数 在任何可以使用表达式的地方都可以使用 DateDiff函数。例如,假定您具有一个用来履行客户订单的窗体。在“订单 (Orders)”表中,有一个名为“到货日期 (ReceiveBefore)”的字段,其中包含客户需要接收所订货物的日期。您可以使用 DateDiff 函数以及窗体上的文本框显示到必须送货的日期所剩余的天数。
假定送货需要十天时间,则可如下设置文本框的“控件来源”属性:
=DateDiff(“d”, Now(), [Orders].[ReceiveBefore])-10
在窗体视图中打开窗体时,文本框会显示到必须送货的日期前剩余的天数。如果到客户需要收货的日期的天数少于 10 天,则文本框中的数字为负数,指示如果立即送货客户收货时间的延迟天数。
在 VBA 代码中使用 DateDiff 函数
注释 以下示例演示了此功能在 Visual Basic for Applications (VBA) 模块中的使用。有关使用 VBA 的详细信息,请在“搜索”旁边的下拉列表中选择“开发人员参考”,然后在搜索框中输入一个或多个词条。
以下示例使用 DateDiff 函数显示给定日期和今天之间的天数。
Dim TheDate As Date ' Declare variables.
Dim Msg
TheDate = InputBox("Enter a date")
Msg = "Days from today: " & DateDiff("d", Now, TheDate)
MsgBox Msg
摘自:http://office.microsoft.com/zh-cn/access/HA012288112052.aspx