ASP 日期的加减运算实现代码
作者：
今天在工作中遇到了一个问题，需要按时间查询，可是查询出来的结果显示的不正确。
举个例子来说，要查找出2007-10-12至2007-10-31之间在网站上注册的会员，选择好日期后，点击“查询”按钮，发现2007-10-31注册的会员的信息根本没有显示出来，试验了几次结果都是一样。调试程序发现，原来是在SQL语句这里出现了问题。
SQL语句如下：SELECT * FROM userinfo WHERE regtime >= '2007-10-12' AND regtime <= '2007-10-31'。初看上去这条SQL语句没有错误，可是对照数据库中相应字段保存的值以后，发现保存的值并不是简单的日期形式，而是日期+时间的形式，即：yyyy-MM-dd HH:mm:ss，这时SQL语句在判断regtime和'2007-10-31'的大小时，会认为'2007-10-31'写的不完整，所以不会认为这两个值是相等的。这可怎么办呢？
不用着急，ASP为我们提供了日期加减的函数，来帮我们解决这一问题。
1.日期相加
DateAdd 函数
返回已添加指定时间间隔的日期。
DateAdd(interval, number, date)
DateAdd 函数的语法有以下参数
（1）interval 必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
（2）number 必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
（3）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 型值，则在计算前四舍五入为最接近的整数。
２.日期相减
DateDiff 函数
返回两个日期之间的时间间隔。
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateDiff 函数的语法有以下参数：
（1）interval 必选项。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
（2）date1, date2 必选项。日期表达式。用于计算的两个日期。
（3）Firstdayofweek 可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
（4）Firstweekofyear 可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
设置
interval 参数可以有以下值：
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
firstdayofweek 参数可以有以下值：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数可以有以下值：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。
说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。
如果 date1 晚于 date2，则 DateDiff 函数返回负数。
firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。
SQL语句如下：SELECT * FROM userinfo WHERE regtime >= '2007-10-12' AND regtime <= '2007-10-31'。初看上去这条SQL语句没有错误，可是对照数据库中相应字段保存的值以后，发现保存的值并不是简单的日期形式，而是日期+时间的形式，即：yyyy-MM-dd HH:mm:ss，这时SQL语句在判断regtime和'2007-10-31'的大小时，会认为'2007-10-31'写的不完整，所以不会认为这两个值是相等的。这可怎么办呢？
不用着急，ASP为我们提供了日期加减的函数，来帮我们解决这一问题。
1.日期相加
DateAdd 函数
返回已添加指定时间间隔的日期。
DateAdd(interval, number, date)
DateAdd 函数的语法有以下参数
（1）interval 必选项。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。
（2）number 必选项。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负数（得到过去的日期）。
（3）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 型值，则在计算前四舍五入为最接近的整数。
２.日期相减
DateDiff 函数
返回两个日期之间的时间间隔。
DateDiff(interval, date1, date2 [,firstdayofweek[, firstweekofyear]])
DateDiff 函数的语法有以下参数：
（1）interval 必选项。字符串表达式，表示用于计算 date1 和 date2 之间的时间间隔。有关数值，请参阅“设置”部分。
（2）date1, date2 必选项。日期表达式。用于计算的两个日期。
（3）Firstdayofweek 可选项。指定星期中第一天的常数。如果没有指定，则默认为星期日。有关数值，请参阅“设置”部分。
（4）Firstweekofyear 可选项。指定一年中第一周的常数。如果没有指定，则默认为 1 月 1 日所在的星期。有关数值，请参阅“设置”部分。
设置
interval 参数可以有以下值：
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
firstdayofweek 参数可以有以下值：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbSunday 1 星期日（默认）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
firstweekofyear 参数可以有以下值：
常数 值 描述
vbUseSystem 0 使用区域语言支持 (NLS) API 设置。
vbFirstJan1 1 由 1 月 1 日所在的星期开始（默认）。
vbFirstFourDays 2 由在新年中至少有四天的第一周开始。
vbFirstFullWeek 3 由在新的一年中第一个完整的周开始。
说明
DateDiff 函数用于判断在两个日期之间存在的指定时间间隔的数目。例如可以使用 DateDiff 计算两个日期相差的天数，或者当天到当年最后一天之间的星期数。
要计算 date1 和 date2 相差的天数，可以使用“一年的日数”（“y”）或“日”（“d”）。当 interval 为“一周的日数”（“w”）时，DateDiff 返回两个日期之间的星期数。如果 date1 是星期一，则 DateDiff 计算到 date2 之前星期一的数目。此结果包含 date2 而不包含 date1。如果 interval 是“周”（“ww”），则 DateDiff 函数返回日历表中两个日期之间的星期数。函数计算 date1 和 date2 之间星期日的数目。如果 date2 是星期日，DateDiff 将计算 date2，但即使 date1 是星期日，也不会计算 date1。
如果 date1 晚于 date2，则 DateDiff 函数返回负数。
firstdayofweek 参数会对使用“w”和“ww”间隔符号的计算产生影响。
如果 date1 或 date2 是日期文字，则指定的年度会成为日期的固定部分。但是如果 date1 或 date2 被包括在引号 (" ") 中并且省略年份，则在代码中每次计算 date1 或 date2 表达式时，将插入当前年份。这样就可以编写适用于不同年份的程序代码。
在 interval 为“年”（“yyyy”）时，比较 12 月 31 日和来年的 1 月 1 日，虽然实际上只相差一天，DateDiff 返回 1 表示相差一个年份。