函數語法說明範例
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) 轉換為長時間格式