ASP日期的加减运算实现代码

举个例子来说，要查找出2007-10-12至2007-10-31之间在网站上注册的会员，选择好日期后，点击“查询”按钮，发现2007-10-31注册的会员的信息根本没有显示出来，试验了几次结果都是一样。调试程序发现，原来是在SQL语句这里出现了问题。
　　SQL语句如下：SELECT*FROMuserinfoWHEREregtime>="2007-10-12"ANDregtime<="2007-10-31"。初看上去这条SQL语句没有错误，可是对照数据库中相应字段保存的值以后，发现保存的值并不是简单的日期形式，而是日期+时间的形式，即：yyyy-MM-ddHH: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表示相差一个年份。