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