DateDiff() 　函数返回两个日期之间的差值 和时间函数

DateDiff()

DateDiff()

　　函数返回两个日期之间的差值 。

　　表达式 DateDiff(timeinterval,date1,date2 [, firstdayofweek [, firstweekofyear]])

　　允许数据类型: timeinterval 表示相隔时间的类型，代码为：

　　“y“表示“年”

　　“m“表示“月”

　　“d“表示“日”

　　“h“表示“时”

　　“n“表示“分”

　　“s“表示“秒”。

　　实例： <%

　　fromDate = #9/9/00#

　　toDate = #1/1/2000#

　　response.write "There are " & _

　　DateDiff("d",fromDate,toDate) & _

　　" days to millenium from 9/9/00."

　　%>

　　返回结果: 从9/9/00 到2000年还有 150 天.

　实例2：

每隔1个小时执行

<%
'……
sDate = Application("缓存名称")
If IsEmpty(sDate) Or DateDiff("h",sDate,Now())>1 Then
     Application.Lock
     Application("缓存名称") = Now()     '记录当时的时间
     Application.UnLock
     '执行
     '……
End If
'……
%>

实例3：

如果不借用组件的话~~
思路：
由每天零点后第一个访问该页面的用户来触发程序

在index.htm用JS方式引用一个ASP文件
<script language="JavaScript" src="save.asp"></script>
在save.asp写判断程序~~
建议可利用缓存记录下当天是否已经生成~~

刚写的简易代码如下： 复制内容到剪贴板
代码:
<%
Dim sDate,Fso,Fout
sDate = Application("缓存名称")
If IsEmpty(sDate) Or CDate(sDate)<>Date() Then
     '当记录的日期与服务器当天的日期不符的话则执行程序，并记录下当天的日期
     Application.Lock
     Application("缓存名称") = Date()     '记录当天的日期
     Application.UnLock
     '生成代码开始
     Set Fso = Server.CreateObject("Scripting.FileSystemObject")
     Set Fout = Fso.CreateTextFile(Server.Mappath("index.htm"))
         Fout.Write "这儿写首页代码" & VbCrLf
         '下面这行是引用判断用的ASP文件
         Fout.Write "<script language=""JavaScript"" src=""save.asp""></script>"
         Fout.Close
     Set Fout = Nothing
     Set Fso = Nothing
     '生成代码结束
     Response.Write "//生成成功！"
End If
%>

其他

formatdatetime(now(),0)　’则返回2004-10-18 11:45:53  
formatdatetime(now(),1)　’则返回2004年10月18日  
formatdatetime(now(),2)　’则返回2004-10-18  
formatdatetime(now(),3)　’则返回11:47:12  
formatdatetime(now(),4)　’则返回11:47  

--------------------------------------------------------------------------------  

weekDayName(weekDay(date()))　　则返回　星期一、星期二等汉字显示。