asp中的一些日期時間函數

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

　　date() 獲取日期格式

　　time() 獲取時間格式::

　　now() 獲取日期和時間 格式 ::

　　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 秒

　　舉例

　　計算明天

　　tomorrow=DateAdd("d"date())

　　年月日的前一天

　　preday=DateAdd("d""")

　　更詳細用法請搜索

　　日期間隔函數DateDiff(interval date date[ firstdayofweek][ firstweekofyear]])

　　計算兩個日期之間相差的間隔

　　例如可以使用 DateDiff 來計算兩個日期之間相隔幾日或計算從今天起到年底還有多少個星期如果date比date 晚則返回負數

　　參數說明

　　interval同DateAdd()函數

　　Datedate 進行運算的兩個日期

　　可選參數

　　firstdayofweek 指定一個星期的第一天的常數如果未予指定則以星期日為第一天

　　當計算兩個日期相差幾周時(時間間隔符號 “w” 或 “ww”)該參數會影響結果具體請搜索

　　firstweekofyear指定一年的第一周怎麼確定如果未予指定則以包含 月 日的星期為第一周具體請搜索

　　其他函數

　　DateSerial(year month day) 將數值換算為日期變量返回值類型同date()函數例如如果day=則自動計算到下個月再例如DateSerial( ) 則計算 年月日的十年零兩個月又一天 之前的日期也就是年月日

　　DatePart(interval date[firstdayofweek[ firstweekofyear]]) 返回指定時間部分的數值例如可以使用DatePart 計算某個日期是星期幾或目前為幾點鐘參數同上面

　　DateValue(date)將各種日期格式串轉化為日期變量返回值類型同date()函數例如除了 // 和 // 之外DateValue 也識別 December 和 Dec

　　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 #

　　函數 語法 說明 示例

　　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 #

　　分派一日期

　　MyYear = Year(MyDate)

　　MyYear 包含

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

　　MyVar包含當前月對應的數字

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

　　MyDay包含

　　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) 取得給定日期是星期幾的整數表示星期日表示星期一依此類推 Dim MyDate MyWeekDay

　　MyDate = #October #

　　分派日期

　　MyWeekDay = Weekday(MyDate)

　　MyWeekDay 包含 MyDate 代表星期五

　　DateDiff DateDiff("Var"VarVar)

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

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

　　Var:第二個日期或時間比Var晚 計算兩個日期或時間的間隔 DateDiff("d"Date()#//#)

　　返回離元旦還有多少

　　DateDiff("h"Date()#//#)

　　返回離元旦還有多少小時

　　DateDiff("d"#//##//#)

　　返回兩個日期之間的天數

　　DateAdd DateDiff("Var"VarVar)

　　Var:日期或時間間隔因子

　　Var:日期或時間間隔倍數

　　Var:日期或時間的基准 對兩個日期或時間作加法 如下示例將 年 月 日加上一個月

　　NewDate = DateAdd("m" "Jan")

　　在這個示例中DateAdd 返回 年 月 日而不是 年 月 日如果 date 為 年 月 日則返回 年 月 日這是因為 是閏年

　　如果計算的日期是在公元 年之前則會產生錯誤

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

　　"以長日期格式顯示

　　FormatDateTime(DatevbLongDate) 轉化為長日期格式

　　FormatDateTime(DatevbShortTime) 轉化為短時間格式

　　FormatDateTime(DatevbLongTime) 轉化為長時間格

From:http://tw.wingwit.com/Article/program/net/201311/14193.html