ASP两个日期之间的天数和处理后的日期

<%
'**************************************************
'函数名：AddDate
'作 用：几个月后的日期
'参 数：dtDate-----开始日期
'        NumDay-----多少月
'返回值：返回几个月后的日期
'**************************************************

Function AddDate(dtDate, NumDay)
    DateStart = CDate(dtDate)
    AddDate = DateAdd("m", NumDay, DateStart)
End Function


'**************************************************
'函数名：GetDateDiif
'作 用：时间之间的天数
'参 数：startDate-----开始日期
'        EndDate-----结束日期
'返回值：结束日期减去开始日期有多少天
'**************************************************

Function GetDateDiif(startDate, EndDate)
    startDate = CDate(startDate)
    EndDate = CDate(EndDate)
    GetDateDiif = DateDiff("D", startDate, EndDate)
End Function


DateHe = AddDate("2007-8-30", 6) '计算最后日期
DateTS = GetDateDiif("2007-8-30", DateHe) '计算日期之间的天数

Response.Write "<li>2007-8-30年开始到"&DateHe"是半年<br></li>"
Response.Write "<li>一共是"&DateTS"天<br></li>"
%>