asp自带函数dateadd()完全能实现你的要求，何必自己去造轮子？
函数名：DateAdd函数 函数作用：Asp中计算时间日期相加减的函数（包括增加时间或者减少时间）
1、DateAdd（interval, number, date）的三个参数都是必须的。
2、interval为：yyyy（年）、q（季度）、m（月）、y（一年的日数）、d（日）、w（一周的日数）、ww（周）、h（小时）、n（分钟）、s（秒）其中之一字的符串。
3、number为要添加的有效数值时间间隔，正数添加、负数减去、小数“四舍五入”取整数。
4、date必须为有效的日期格式，可能在不同的系统上格式不同，可参考Date（）返回的信息。
5、请不要认为这是一个没有用的函数，它并非简单的加减。
DateAdd函数应用举例：
Dim Today
Dim TempDate
'取得今天的日期
Today=Date（）
'减去一年
TempDate=DateAdd（"yyyy",-1,Today）
Response.Write（"去年的今天："）
Response.Write（TempDate）
Response.Write（""）
TempDate=DateAdd（"yyyy",+1,Today）
Response.Write（"后年的今天："）
Response.Write（TempDate）
Response.Write（""）
TempDate=DateAdd（"d",-1,Today）
Response.Write（"昨天："） ''ASP算出明天的日期
Response.Write（TempDate）
Response.Write（""）
TempDate=DateAdd（"d",-1,Today）
Response.Write（"明天："） 'ASP算出明天的日期
Response.Write（TempDate）
Response.Write（""）
