本文提供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) 轉化為長時間格