DataDiff函数很实用的,我们经常会用到,但是有些时候总是忘函数的用途,所以详细说明下此函数
'========================DataDiff函数说明开始=======================
' 函数作用: 返回两个日期之间的时间间隔.
' 格式 : DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
' 参数说明:
' interval: 表示用于计算 date1 和 date2 之间的时间间隔。它有如下参数:
' yyyy: 表示相差的年份
' q : 表示相差的秀度
' n : 表示相差的月份
' y : 表示一年的日数
' w : 表示一周的日数
' d : 表示相差的日数
' ww : 表示相差的周数
' h : 表示相差的小时数
' m : 表示相差的分钟数
' 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 之间星期日的数目。如果 date2 是星期日,DateDiff 将计算 date2,但即使 date1 是星期日,也不会计算 date1。
'如果 date1 晚于 date2,则 DateDiff 函数返回负数。
'firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
'如果 date1 或 date2 是日期文字,则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 ("") 中并且省略年份,则在代码中每次计算 date1 或 date2 表达式时,将插入当前年份。这样就可以编写适用于不同年份的程序代码。
'在 interval 为“年”(“yyyy”)时,比较 12 月 31 日和来年的 1 月 1 日,虽然实际上只相差一天,DateDiff 返回 1 表示相差一个年份。
'========================DataDiff函数说明结束======================
下面来看看几个测试的例子:
| 以下是代码片段: Dim Value,Date1,Date2 Date1 = CDate("2005/01/01 19:10:21") Date2 = CDate("2006/01/01 20:20:22") '测试间隔年份 response.write Date1&"<br>" Response.write Now()&"<br>" Value = DateDiff("yyyy",Date1,Date2) Response.write "<br>间隔年份为:"&Value&"年<br>" '测试间隔年份的天数 Value = DateDiff("y",Date1,Date2) Response.write "间隔年份的天数:"&Value&"天<br>" '测试间隔的月份 Value = DateDiff("m",Date1,Date2) Response.write "<br>间隔的月数:"&Value&"月" '测试间隔的周数 Value = DateDiff("w",Date1,Date2) Response.write "<br>间隔的周数:"&Value&"周" '测试间隔的天数 Value = DateDiff("d",Date1,Date2) Response.write "<br>间隔的天数:"&Value&"天" '测试间隔的小时 Value = DateDiff("h",Date1,Date2) Response.write "<br>间隔的小时数:"&Value&"小时" Date2 = Now() '测试间隔的分钟数 Value = DateDiff("n",Date1,Date2) Response.write "<br>间隔的分钟数:"&Value&"分" '测试间隔的秒数 Value = DateDiff("s",Date1,Date2) Response.write "<br>间隔的秒数:"&Value&"秒" |
相信大家看完这个例子之后会更加了解DataDiff函数吧...
原载: No.1网络工作室 http://www.noonenet.cn/