第一，vba日期和時間函數的基本用法

　　Excel中vba日期函數和時間函數分別是DATE和TIME。

　　VBA提供了三個無參數函數：Date、Time、Now，分別返回當前電腦系統的日期、時間、日期+時間。

　　下面的代碼我們以三個消息框來結合日期和時間函數，分別提示當前的日期、時間。

Sub vba時間和日期函數()
MsgBox Date
MsgBox Time
MsgBox Now
End Sub

第二，使用vba日期和時間函數修改系統信息

　　下面這段代碼將電腦右下角的日期和時間修改為2011年1月1日21:50:00。

Sub 修改時間和日期()
Time = "21:50:00"
Date = "2011年1月1日"
End Sub

第三，用消息框返回當前日期的年、月、日和當前時間的時、分、秒

Sub SmpYearHour()
'以對話框顯示當前日期的年、月、日
MsgBox "當前日期：" & Date & Chr(10) & _
"年：" & Year(Date) & Chr(10) & _
"月：" & Month(Date) & Chr(10) & _
"日：" & Day(Date)
'以對話框顯示當前時間的時、分、秒
MsgBox "當前時間：" & Time & Chr(10) & _
"時：" & Hour(Time) & Chr(10) & _
"分：" & Minute(Time) & Chr(10) & _
"秒：" & Second(Time)
End Sub

第四，其余的vba日期和時間函數列表

　　Timer：返回一個 Single，代表從午夜開始到現在經過的秒數。

　　TimeSerial(hour, minute, second)：返回一個 Variant (Date)，包含具有具體時、分、秒的時間。

　　DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示兩個指定日期間的時間間隔數目。

　　Second(time) 返回一個 Variant (Integer)，其值為 0 到 59 之間的整數，表示一分鐘之中的某個秒。

　　Minute(time) 返回一個 Variant (Integer)，其值為 0 到 59 之間的整數，表示一小時中的某分鐘。

　　Hour(time) 返回一個 Variant (Integer)，其值為 0 到 23 之間的整數，表示一天之中的某一鐘點。

　　Day(date)返回一個 Variant (Integer)，其值為 1 到 31 之間的整數，表示一個月中的某一日。

　　Month(date) 返回一個 Variant (Integer)，其值為 1 到 12 之間的整數，表示一年中的某月。

　　Year(date) 返回 Variant (Integer)，包含表示年份的整數。

　　Weekday(date, [firstdayofweek]) 返回一個 Variant (Integer)，包含一個整數，代表某個日期是星期幾。