将一个日期值加上n天,用什么操作函数, 参数是什么样的?
DateAdd是做什么的,参数是怎么样的?
想将指定年、月、日赋值给一个 日期类型,该怎么作?
描述
返回已添加指定时间间隔的日期。
语法
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 型值,则在计算前四舍五入为最接近的整数。
NewDate = DateAdd("d",5, "31-Jan-95")
返回 95-2-5
<%
Dim MyDate '返回当前的系统日期
MyDate=Date() '输出当前的系统日期,存在系统变量MyDate里
Response.Write("当前系统日期为:"+CStr(MyDate))
Response.Write("<BR><BR>")
'DateAdd函数:返回已添加指定时间间隔的日期
Response.Write("100天后的日期为:"+CStr(DateAdd("d",100,MyDate)))
Response.Write("<BR><BR>")
Response.Write("3个月后的日期为:"+CStr(DateAdd("m",3,MyDate)))
Response.Write("<BR><BR>")
Response.Write("2年后的日期为:"+CStr(DateAdd("yyyy",2,MyDate)))
Response.Write("<BR><BR>")
Response.Write("当前日期为:"+CStr(Year(MyDate))&"年"&CStr(Month(MyDate))&"月"&CStr(Day(MyDate))&"日")
%>