阿水資訊站

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) 轉化為長時間格式

來源：藍色小舖
FormatDateTime(Date [,Format] )
格式化日期(時刻)
Date 是日期(時刻)型態，或是可表示日期(時刻)的
字串。 Format選項是用來指定顯示格式，如果省略
預設值是0
[Format] 引數，可以用常數名稱去指定，或者用0到4
的數字去指定皆可。
vbGeneralDate=0 簡短日期，完整時刻
vbLongDate=1 完整日期，省略時刻 
vbShortDate=2 簡短日期，省略時刻 
vbLongTime=3 省略日期，完整時刻
vbShortTime=4 省略日期，24小時制度 hh:mm
請注意，格式化之後，所顯示出的結果，會因為
不同語言版本、不同地區的各作業系統，而有些
差異。

範例：(以Windows2000 Server繁體中文版為例)
FormatDateTime("2002/3/5 14:27:4")
結果是 "2002/3/5 PM 02:27:04"

FormatDateTime("2002/3/5 14:27:4",vbLongDate)
結果是 "2002年3月5日"

FormatDateTime("2002/3/5 14:27:4",2)
結果是 "2002/3/5"

FormatDateTime("2002/3/5 14:27:4",3)
結果是 "PM 02:27:04"

FormatDateTime("2002/3/5 14:27:4",4)
結果是 "14:27"