急！在线等。VBSCRIPT中不认DATEADD函数啊，有什么可以替换的吗？

[am]

如题

[hubinasm]

VBSCRIPT中认DATEADD函数!
dateadd(interval,number,date)

[yelook]

Microsoft® Visual Basic® Scripting Edition
DateAdd 函数 语言参考
版本 2


请参阅


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

描述
返回已添加指定时间间隔的日期。
语法
DateAdd(interval, number, date)
DateAdd 函数的语法有以下部分：

部分 描述
interval 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
number 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
date 必选。Variant 或要添加 interval 的表示日期的文字。


设置
interval 参数可以有以下值：
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒


说明
可用 DateAdd 函数从日期中添加或减去指定时间间隔。例如可以使用 DateAdd 从当天算起 30 天以后的日期或从现在算起 45 分钟以后的时间。要向 date 添加以“日”为单位的时间间隔，可以使用“一年的日数”（“y”）、“日”（“d”）或“一周的日数”（“w”）。
DateAdd 函数不会返回无效日期。如下示例将 95 年 1 月 31 日加上一个月：


NewDate = DateAdd("m", 1, "31-Jan-95")


在这个例子中，DateAdd 返回 95 年 2 月 28 日，而不是 95 年 2 月 31 日。如果 date 为 96 年 1 月 31 日，则返回 96 年 2 月 29 日，这是因为 1996 是闰年。
如果计算的日期是在公元 100 年之前则会产生错误。

如果 number 不是 Long 型值，则在计算前四舍五入为最接近的整数。


--------------------------------------------------------------------------------
© 1997 Microsoft Corporation 版权所有。

[jedy]

a=dateadd("d",7,"2002-01-01")
response.write a
应该得到2002-01-08,绝对可以的

[月光易水]

<SCRIPT LANGUAGE="VbScript">
<!--
dat=dateadd("d",7,"2002-01-01")
msgbox(dat)
//-->
</SCRIPT>

:_)