date() 獲取日期，格式：2004-2-28
time() 獲取時(shí)間，格式：22:24:59
now() 獲取日期和時(shí)間 格式： 2005-5-2 22:37:30

d=date()
獲取年份：year(d)
獲取月份：month(d)
獲取日子：day(d)
獲取星期幾：weekday(d)

t=time()
獲取小時(shí)：hour(t)
獲取分鐘：minute(t)
獲取秒數(shù)：second(t)

========================================

日期相加函數(shù)：

DateAdd(interval, number, date)
可用該函數(shù)從日期中添加或減去指定時(shí)間間隔。

參數(shù)說(shuō)明：

interval－運(yùn)算的基準(zhǔn)間隔
number－加上多少，可為負(fù)數(shù)
date－基準(zhǔn)日期

下面是interval的可選值，注意加上引號(hào)：

設(shè)置 描述
yyyy 年
q 季度
m 月
y 一年的日數(shù)
d 日
w 一周的日數(shù)
ww 周
h 小時(shí)
n 分鐘
s 秒

舉例：
1、計(jì)算明天：
tomorrow=DateAdd("d",1,date())
2、2012年12月1日的前一天：
preday=DateAdd("d",-1,"2012-12-1")

更詳細(xì)用法請(qǐng)搜索。

========================================
日期間隔函數(shù)：

DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])
計(jì)算兩個(gè)日期之間相差的間隔。
例如，可以使用 DateDiff 來(lái)計(jì)算兩個(gè)日期之間相隔幾日，或計(jì)算從今天起到年底還有多少個(gè)星期。如果date1比date2 晚，則返回負(fù)數(shù)。

參數(shù)說(shuō)明：

interval－同DateAdd（）函數(shù)
Date1,date2 －進(jìn)行運(yùn)算的兩個(gè)日期

可選參數(shù)：

firstdayofweek－ 指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。
當(dāng)計(jì)算兩個(gè)日期相差幾周時(shí)（時(shí)間間隔符號(hào) “w” 或 “ww”），該參數(shù)會(huì)影響結(jié)果。具體請(qǐng)搜索。
firstweekofyear－指定一年的第一周怎么確定，如果未予指定，則以包含 1 月 1 日的星期為第一周。具體請(qǐng)搜索。

========================================
其他函數(shù)：
DateSerial(year, month, day) －將數(shù)值換算為日期變量，返回值類型同date()函數(shù)。例如，如果day=35，則自動(dòng)計(jì)算到下個(gè)月。再例如，DateSerial(1990 - 10, 8 - 2, 1 - 1) 則計(jì)算1990 年8月1日的十年零兩個(gè)月又一天 之前的日期，也就是1980年5月31日。
DatePart(interval, date[,firstdayofweek[, firstweekofyear]]) －返回指定時(shí)間部分的數(shù)值。例如，可以使用DatePart 計(jì)算某個(gè)日期是星期幾或目前為幾點(diǎn)鐘。參數(shù)同上面。
DateValue(date)－將各種日期格式串轉(zhuǎn)化為日期變量，返回值類型同date()函數(shù)。例如，除了 12/30/1991 和 12/30/91 之外，DateValue 也識(shí)別 December 30, 1991 和 Dec 30, 1991。
TimeValue(time)－將各種時(shí)間格式串轉(zhuǎn)化為時(shí)間變量。原理同DateValue。
TimeSerial(hour, minute, second) －將數(shù)值轉(zhuǎn)化為時(shí)間變量，返回值類型和time()函數(shù)相同。原理同DateSerial。
Timer()－午夜開(kāi)始到現(xiàn)在經(jīng)過(guò)的秒數(shù)。

以下是使用例子：
now() 獲取當(dāng)前系統(tǒng)日期和時(shí)間,asp輸出可以這樣寫(xiě)：<%=now()%>
Year(now()) 獲取年份， ASP輸出：<%=Year(now())%>
Month(now()) 獲取當(dāng)前月份，ASP輸出：<%=Month(now())%>
day(now()) 獲取當(dāng)天數(shù)，ASP輸出：<%=day(now())%>
Minute(now()) 獲取分鐘數(shù)，ASP輸出：<%=Minute(now())%>
Second(now()) 獲取秒鐘數(shù)，ASP輸出：<%=Second(now())%>
date() 獲取當(dāng)前系統(tǒng)日期，格式為：2004-2-28
time() 獲取當(dāng)前系統(tǒng)時(shí)間，格式為：22:24:59
DateAdd函數(shù)(時(shí)間向后)，DateAdd("h",13,Now())其中"h"代表小時(shí)，13代表加上13小時(shí)，now()是現(xiàn)在的日期時(shí)間，也可以"h"可以改變：
設(shè)置 描述
yyyy 年
q 季度
m 月
y 一年的日數(shù)
d 日
w 一周的日數(shù)
ww 周
h 小時(shí)
n 分鐘
s 秒

用時(shí)間間隔的方法減去一定的天數(shù)，代碼如下：

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

使用加負(fù)天數(shù)的方法減去一定的天數(shù)，代碼如下：

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

使用長(zhǎng)時(shí)間模式，代碼如下：

Public Function Date5()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toLongTimeString()
End Function

使用短時(shí)間模式，代碼如下：

Public Function Date6()
  Dim NewTime as DateTime
  NewTime = Now()
  return newtime.toShortTimeString()
End Function

使用長(zhǎng)日期模式，代碼如下：

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

格式化日期函數(shù)
格式化成通用格式，代碼如下：

Function Date9()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 0)
End Function

格式化成長(zhǎng)日期格式，代碼如下：

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

格式化成長(zhǎng)時(shí)間格式，代碼如下：

Function Date12()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 3)
End Function

格式化成短時(shí)間格式，代碼如下：

Function Date13()
  Dim NewTime as DateTime
  NewTime = DateTime.Now.Subtract( New TimeSpan(7, 0, 0, 0) )
  return formatdatetime(NewTime, 4)
End Function

單獨(dú)顯示時(shí)間的年，月，日等部分
顯示日期，代碼如下：

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

返回一個(gè)格式化后的字符串，代碼如下：

Function Date17()
  Dim MyDate as String
  MyDate = Format(Now(), "yyyy")
  return MyDate
End Function

DateDiff 函數(shù)
返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。
語(yǔ)法
DateDiff(interval, date1, date2[, firstdayofweek][, firstweekofyear]])
DateDiff 函數(shù)語(yǔ)法中有下列命名參數(shù)：
部分 描述
interval 必要。字符串表達(dá)式，表示用來(lái)計(jì)算date1 和 date2 的時(shí)間差的時(shí)間間隔
Date1□date2 必要；Variant (Date)。計(jì)算中要用到的兩個(gè)日期。
Firstdayofweek 可選。指定一個(gè)星期的第一天的常數(shù)。如果未予指定，則以星期日為第一天。
firstweekofyear 可選。指定一年的第一周的常數(shù)。如果未予指定，則以包含 1 月 1 日的星期為第一周。

設(shè)置
interval 參數(shù)的設(shè)定值如下：
設(shè)置 描述
yyyy 年
q 季
m 月
y 一年的日數(shù)
d 日
w 一周的日數(shù)
ww 周
h 時(shí)
n 分鐘
s 秒

firstdayofweek 參數(shù)的設(shè)定值如下：
常數(shù) 值 描述
vbUseSystem 0 使用 NLS API 設(shè)置。
vbSunday 1 星期日（缺省值）
vbMonday 2 星期一
vbTuesday 3 星期二
vbWednesday 4 星期三
vbThursday 5 星期四
vbFriday 6 星期五
vbSaturday 7 星期六
常數(shù) 值 描述
vbUseSystem 0 用 NLS API 設(shè)置。
vbFirstJan1 1 從包含 1 月 1 日的星期開(kāi)始（缺省值）。
vbFirstFourDays 2 從第一個(gè)其大半個(gè)星期在新的一年的一周開(kāi)始。
vbFirstFullWeek 3 從第一個(gè)無(wú)跨年度的星期開(kāi)始。
說(shuō)明
DateDiff 函數(shù)可用來(lái)決定兩個(gè)日期之間所指定的時(shí)間間隔數(shù)目。例如，可以使用 DateDiff 來(lái)計(jì)算兩個(gè)日期之間相隔幾日，或計(jì)算從今天起到年底還有多少個(gè)星期。
為了計(jì)算 date1 與 date2 相差的日數(shù)，可以使用“一年的日數(shù)”(y) 或“日”(d)。當(dāng) interval 是“一周的日數(shù)”(w) 時(shí)，DateDiff 返回兩日期間的周數(shù)。如果 date1 是星期一，DateDiff 計(jì)算到 date2 為止的星期一的個(gè)數(shù)。這個(gè)數(shù)包含 date2 但不包含 date1。不過(guò)，如果 interval 是“周”(ww)，則 DateDiff 函數(shù)返回兩日期間的“日歷周”數(shù)。由計(jì)算 date1 與 date2 之間星期日的個(gè)數(shù)而得。如果 date2 剛好是星期日，則 date2 也會(huì)被加進(jìn) DateDiff 的計(jì)數(shù)結(jié)果中；但不論 date1 是否為星期日，都不將它算進(jìn)去。
如果 date1 比 date2 來(lái)得晚，則 DateDiff 函數(shù)的返回值為負(fù)數(shù)。
firstdayofweek 參數(shù)會(huì)影響使用時(shí)間間隔符號(hào) “W” 或 “WW” 計(jì)算的結(jié)果。
如果 date1 或 date2 是日期文字，則指定的年份成為該日期的固定部分。但是，如果 date1 或 date2 用雙引號(hào) (" ") 括起來(lái)，且年份略而不提，則在每次計(jì)算表達(dá)式 date1 或 date2 時(shí)，當(dāng)前年份都會(huì)插入到代碼之中。這樣就可以書(shū)寫(xiě)適用于不同年份的程序代碼。
在計(jì)算 12 月 31 日和來(lái)年的 1 月 1 日的年份差時(shí)，DateDiff 返回 1 表示相差一個(gè)年份，雖然實(shí)際上只相差一天而已。

<%
'作用：格式化時(shí)間(顯示)
'參數(shù)：一個(gè)是時(shí)間，一個(gè)是格式化的參數(shù)
' 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


response.write FormatTime(rsnews("news_date"),8)
%>