asp中的一些日期時間函數

　　本文提供vbscript時間函數的概要介紹，可應對一般應用，具體特殊需求可進一步搜索。

　　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 Now() 取得系統當前的日期和時間 Dim MyVar MyVar = Now

　　MyVar 包含當前的日期和時間。

　　Date Date() 取得系統當前的日期 Dim MyDate MyDate = Date

　　MyDate 包含當前系統日期。

　　Time Time() 取得系統當前的時間 Dim MyTime MyTime = Time

　　返回當前系統時間。

　　Year Year(Date) 取得給定日期的年份 Dim MyDate, MyYear

　　MyDate = #October 19, 1962#

　　函數 語法 說明 示例

　　Now Now() 取得系統當前的日期和時間 Dim MyVar MyVar = Now

　　MyVar 包含當前的日期和時間。

　　Date Date() 取得系統當前的日期 Dim MyDate MyDate = Date

　　MyDate 包含當前系統日期。

　　Time Time() 取得系統當前的時間 Dim MyTime MyTime = Time

　　返回當前系統時間。

　　Year Year(Date) 取得給定日期的年份 Dim MyDate, MyYear

　　MyDate = #October 19, 1962#

　　分派一日期。

　　MyYear = Year(MyDate)

　　MyYear 包含 1962。

　　Month Month(Date) 取得給定日期的月份 Dim MyVar MyVar = Month(Now)

　　MyVar包含當前月對應的數字。

　　Day Day(Date) 取得給定日期是幾號 Dim MyDay MyDay = Day("October 19, 1962")

　　MyDay包含 19。

　　Hour Hour(time) 取得給定時間是第幾小時 Dim MyTime, MyHour

　　MyTime = Now MyHour = Hour(MyTime)

　　MyHour 包含代表當前時間的數值。

　　Minute Minute(time) 取得給定時間是第幾分鐘 Dim MyVar

　　MyVar = Minute(Now)

　　Second Second(time) 取得給守時間是第幾秒 Dim MySec

　　MySec = Second(Now)

　　MySec 包含代表當前秒的數字。

　　WeekDay WeekDay(Date) 取得給定日期是星期幾的整數，1表示星期日，2表示星期一，依此類推 Dim MyDate, MyWeekDay

　　MyDate = #October 19, 1962#

　　分派日期

　　MyWeekDay = Weekday(MyDate)

　　MyWeekDay 包含 6,MyDate 代表星期五

　　DateDiff DateDiff("Var",Var1,Var2)

　　Var:日期或時間間隔因子，有如下參數：

　　yyyy 年 m月 d 日 ww星期 h小時 s秒 Var1:第一個日期或時間

　　Var2:第二個日期或時間，比Var1晚 計算兩個日期或時間的間隔 DateDiff("d",Date(),#1/1/2005#)

　　返回離2005元旦還有多少

　　DateDiff("h",Date(),#1/1/2005#)

　　返回離2005元旦還有多少小時

　　DateDiff("d",#1/1/2003#,#1/1/2005#)

　　返回兩個日期之間的天數

　　DateAdd DateDiff("Var",Var1,Var2)

　　Var:日期或時間間隔因子：

　　Var1:日期或時間間隔倍數

　　Var2:日期或時間的基准 對兩個日期或時間作加法 如下示例將 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 年之前，則會產生錯誤。

　　FormatDateTime FormatDateTime(Date,vbShortDate) 轉化為短日期格式 FromatDateTime(Date(),vbLongDate)

　　"以長日期格式顯示

　　FormatDateTime(Date,vbLongDate) 轉化為長日期格式

　　FormatDateTime(Date,vbShortTime) 轉化為短時間格式

　　FormatDateTime(Date,vbLongTime) 轉化為長時間格