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