date() 获取日期，格式：2004-2-28
time() 获取时间，格式：22:24:59
now() 获取日期和时间 格式： 2005-5-2 22:37:30
d=date()
获取年份：year(d)
获取月份：month(d)
获取日子：day(d)
获取星期几：weekday(d)
t=time()
获取小时：hour(t)
获取分钟：minute(t)
获取秒数：second(t)
========================================
日期相加函数：DateAdd(interval, number, date)
可用该函数从日期中添加或减去指定时间间隔。
参数说明：
interval－运算的基准间隔
number－加上多少，可为负数
date－基准日期
下面是interval的可选值，注意加上引号：
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
举例：
1、计算明天：
tomorrow=DateAdd("d",1,date())
2、2012年12月1日的前一天：
preday=DateAdd("d",-1,"2012-12-1")
更详细用法请搜索。
========================================
日期间隔函数－DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])
计算两个日期之间相差的间隔。
例如，可以使用 DateDiff 来计算两个日期之间相隔几日，或计算从今天起到年底还有多少个星期。如果date1比date2 晚，则返回负数。
参数说明：
interval－同DateAdd（）函数
Date1,date2 －进行运算的两个日期
可选参数：
firstdayofweek－ 指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
当计算两个日期相差几周时（时间间隔符号 “w” 或 “ww”），该参数会影响结果。具体请搜索。
firstweekofyear－指定一年的第一周怎么确定，如果未予指定，则以包含 1 月 1 日的星期为第一周。具体请搜索。
========================================
其他函数：
DateSerial(year, month, day) －将数值换算为日期变量，返回值类型同date()函数。例如，如果day=35，则自动计算到下个月。再例如，DateSerial(1990 - 10, 8 - 2, 1 - 1) 则计算1990 年8月1日的十年零两个月又一天 之前的日期，也就是1980年5月31日。
DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) －返回指定时间部分的数值。例如，可以使用DatePart 计算某个日期是星期几或目前为几点钟。参数同上面。
DateValue(date)－将各种日期格式串转化为日期变量，返回值类型同date()函数。例如，除了 12/30/1991 和 12/30/91 之外，DateValue 也识别 December 30, 1991 和 Dec 30, 1991。
TimeValue(time)－将各种时间格式串转化为时间变量。原理同DateValue。
TimeSerial(hour, minute, second) －将数值转化为时间变量，返回值类型和time()函数相同。原理同DateSerial。
Timer()－午夜开始到现在经过的秒数。
以下是使用例子：
now() 获取当前系统日期和时间,asp输出可以这样写：<%=now()%>
Year(now()) 获取年份， ASP输出：<%=Year(now())%>
Month(now()) 获取当前月份，ASP输出：<%=Month(now())%>
day(now()) 获取当天数，ASP输出：<%=day(now())%>
Minute(now()) 获取分钟数，ASP输出：<%=Minute(now())%>
Second(now()) 获取秒钟数，ASP输出：<%=Second(now())%>
date() 获取当前系统日期，格式为：2004-2-28
time() 获取当前系统时间，格式为：22:24:59
DateAdd函数(时间向后)
DateAdd("h",13,Now())其中"h"代表小时，13代表加上13小时，now()是现在的日期时间，也可以"h"可以改变：
设置 描述
yyyy 年
q 季度
m 月
y 一年的日数
d 日
w 一周的日数
ww 周
h 小时
n 分钟
s 秒
用时间间隔的方法减去一定的天数
复制代码 代码如下:
Function Date1()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
NewTime = NewTime.Format("MM/dd/yyyy", DateTimeFormatInfo)
response.write(NewTime)
End Function
使用加负天数的方法减去一定的天数
复制代码 代码如下:
Public Function Date2()
Dim NewTime as DateTime
NewTime = DateTime.Now.AddDays(-7)
Dim s as string = NewTime
return s
End Function
返回日期名称字符串
复制代码 代码如下:
Function Date3()
Dim NewTime as DateTime = now.addDays(-7)
response.write(System.String.Format("{0:MM/dd/yyyy}",NewTime))
End Function
Function Date4()
Dim NewTime as DateTime
NewTime = now.addDays(-7)
return NewTime.ToString()
End Function
使用长时间模式
复制代码 代码如下:
Public Function Date5()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toLongTimeString()
End Function
使用短时间模式
复制代码 代码如下:
Public Function Date6()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toShortTimeString()
End Function
使用长日期模式
复制代码 代码如下:
Public Function Date7()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toLongDateString()
End Function
使用短日起模式
复制代码 代码如下:
Public Function Date8()
Dim NewTime as DateTime
NewTime = Now()
return newtime.toShortDatestring()
End Function
格式化日期函数
格式化成通用格式
复制代码 代码如下:
Function Date9()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 0)
End Function
格式化成长日期格式
复制代码 代码如下:
Function Date10()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 1)
End Function
格式化成短日期格式
复制代码 代码如下:
Function Date11()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 2)
End Function
格式化成长时间格式
复制代码 代码如下:
Function Date12()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 3)
End Function
格式化成短时间格式
复制代码 代码如下:
Function Date13()
Dim NewTime as DateTime
NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
return formatdatetime(NewTime, 4)
End Function
单独显示时间的年，月，日等部分
显示日期
复制代码 代码如下:
Function Date14()
Dim NewTime as DateTime = now.addDays(-7)
dim s as string
s = (System.String.Format("{0:dddd}",NewTime))
Return s
End Function
返回日期的一周中的第几天
复制代码 代码如下:
Function Date15()
Dim MyDate as DateTime
Dim MyWeekDay as Integer
MyDate = Now.AddDays(-5)
MyWeekDay = Weekday(MyDate)
return MyWeekDay
End Function
返回月份值
复制代码 代码如下:
Function Date16()
Dim MyDate as DateTime
Dim MyMonth as Integer
MyDate = Now.AddDays(-5)
MyMonth = Month(MyDate)
return MyMonth
End Function
返回一个格式化后的字符串
复制代码 代码如下:
Function Date17()
Dim MyDate as String
MyDate = Format(Now(), "yyyy")
return MyDate
End Function
DateDiff 函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
语法
DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])
DateDiff 函数语法中有下列命名参数：
部分 描述
interval 必要。字符串表达式，表示用来计算date1 和 date2 的时间差的时间间隔
Date1□date2 必要；Variant (Date)。计算中要用到的两个日期。
Firstdayofweek 可选。指定一个星期的第一天的常数。如果未予指定，则以星期日为第一天。
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 星期六
常数 值 描述
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 刚好是星期日，则 date2
也会被加进 DateDiff 的计数结果中；但不论 date1 是否为星期日，都不将它算进去。
如果 date1 比 date2 来得晚，则 DateDiff 函数的返回值为负数。
firstdayofweek 参数会影响使用时间间隔符号 “W” 或 “WW” 计算的结果。
如果 date1 或 date2 是日期文字，则指定的年份成为该日期的固定部分。但是，如果 date1 或 date2 用双引号 (" ") 括起来，且年份略而不提，则在每次计算表达式 date1 或 date2 时，当前年份都会插入到代码之中。这样就可以书写适用于不同年份的程序代码。
在计算 12 月 31 日和来年的 1 月 1 日的年份差时，DateDiff 返回 1 表示相差一个年份，虽然实际上只相差一天而已。
<%
'作用：格式化时间(显示)
'参数：一个是时间，一个是格式化的参数
' 1:"yyyy-mm-dd hh:mm:ss"
' 2:"yyyy-mm-dd"
' 3:"hh:mm:ss"
' 4:"yyyy年mm月dd日"
' 5:"yyyymmdd"
' 6:"yyyymmddhhmmss"
' 7:"yyyymmddhhmm"
' 8:"mm月dd日
' 9:dd日
Function FormatTime(s_Time, n_Flag)
Dim y, m, d, h, mi, s
FormatTime = ""
If IsDate(s_Time) = False Then Exit Function
y = cstr(year(s_Time))
m = cstr(month(s_Time))
If len(m) = 1 Then m = "0" & m
d = cstr(day(s_Time))
If len(d) = 1 Then d = "0" & d
h = cstr(hour(s_Time))
If len(h) = 1 Then h = "0" & h
mi = cstr(minute(s_Time))
If len(mi) = 1 Then mi = "0" & mi
s = cstr(second(s_Time))
If len(s) = 1 Then s = "0" & s
Select Case n_Flag
Case 1
' yyyy-mm-dd hh:mm:ss
FormatTime = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s
Case 2
' yyyy-mm-dd
FormatTime = y & "-" & m & "-" & d
Case 3
' hh:mm:ss
FormatTime = h & ":" & mi & ":" & s
Case 4
' yyyy年mm月dd日
FormatTime = y & "年" & m & "月" & d & "日"
case 5
'yyyymmdd
FormatTime= y&m&d
case 6
'yyyymmddhhmmss
FormatTime=y&m&d&h&mi&s
case 7
'yyyymmddhhmm
FormatTime=y&m&d&h&mi
case 8
FormatTime=m & "月" & d & "日"
case 9
FormatTime=d & "日"
case else
FormatTime = s_Time
End Select
End Function
%>
<%= FormatTime(rsnews("news_date"),8) %>