asp DateDiff函数运用

功能：返回两个日期之间的时间间隔。

语法：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   

 程序代码

    
<% 
   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>")
%> 

 

 程序代码

<% 
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
%>