01
<%
02
'**************************************************
03
'函數名：AddDate
04
'作 用：幾個月後的日期
05
'參 數：dtDate-----開始日期
06
' NumDay-----多少月
07
'返回值：返回幾個月後的日期
08
'**************************************************
09
10
Function AddDate(dtDate, NumDay)
11
DateStart = CDate(dtDate)
12
AddDate = DateAdd("m", NumDay, DateStart)
13
End Function
14
15
16
'**************************************************
17
'函數名：GetDateDiif
18
'作 用：時間之間的天數
19
'參 數：startDate-----開始日期
20
' EndDate-----結束日期
21
'返回值：結束日期減去開始日期有多少天
22
'**************************************************
23
24
Function GetDateDiif(startDate, EndDate)
25
startDate = CDate(startDate)
26
EndDate = CDate(EndDate)
27
GetDateDiif = DateDiff("D", startDate, EndDate)
28
End Function
29
30
31
DateHe = AddDate("2007-8-30", 6) '計算最後日期
32
DateTS = GetDateDiif("2007-8-30", DateHe) '計算日期之間的天數
33
34
Response.Write "<li>2007-8-30年開始到"&DateHe"是半年<br></li>"
35
Response.Write "<li>一共是"&DateTS"天<br></li>"
36
%>
