|
函數
|
文法
|
說明
|
樣本
|
|
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) |
轉化為長時間格式 |