功能:返回两个日期之间的时间间隔。
语法:DateDiff(interval, date1, date2 [,firstdayofweek][, firstweekofyear]])
语法参数:
interval 必选。字符串表达式,表示用于计算 date1 和 date2 之间的时间间隔。有关数值,请参阅“设置”部分。
date1, date2 必选。日期表达式。用于计算的两个日期。
firstdayofweek 可选。指定星期中第一天的常数。如果没有指定,则默认为星期日。有关数值,请参阅“设置”部分。
firstweekofyear 可选。指定一年中第一周的常数。如果没有指定,则默认为 1 月 1 日所在的星期。有关数值,请参阅“设置”部分
参数设置:
interval 参数可以有以下值:
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
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 由在新的一年中第一个完整的周开始。
说明:
如果 date1 晚于 date2,则 DateDiff 函数返回负数。
例子:
比如计算我的年龄:<%=datediff("yyyy",#1984-3-13#,now())%> 运算后的结果:22
如果你想查前一天的,就:
mytime=rs("time") '//数据库中保存时间
nowtime=now() '//当前时间
if datediff("d",mytime,nowtime)<1 then
.....
end if
![程序代码](http://www.badguy.name/images/code.gif)
<%
dim myarr(2)
dim mydate
mydate=date()
Response.Write ("The Number of A's ASC :"&asc("A"))
Response.Write ("<br><br>")
Response.Write ("The Number of A's ASC :"&chr(asc("A")+5))
Response.Write ("<br><br>")
myarr(0)="123":myarr(1)="456"
Response.Write ("输出的应该是1-6:"& join(myarr))
Response.Write ("<br><br>")
Response.Write ("当前系统日期为"&CStr(date))
Response.Write ("距离我的生日还有"& DateDiff("d",date,#2007-10-30#)&"天")Response.Write ("<br><br>")
%>
![程序代码](http://www.badguy.name/images/code.gif)
<%
dim mytime
mytime=FormatDateTime(time,4)
response.Write("现在的时间是:"&mytime&"")
if mytime>"08:00" and mytime<="12:00" then
response.Write("<br><br>现在是上午,好好工作哟")
elseif mytime>+"13:00" and mytime<="17:00" then
response.Write("<br><br>现在是下午,好好工作哟")
else
response.Write("现在的时间不要上班了吧")
End if
%>