文章介紹了excel中vba日期函數(shù)和vba時(shí)間函數(shù)的應(yīng)用以及相關(guān)的函數(shù)列表。
第一，vba日期和時(shí)間函數(shù)的基本用法
Excel中vba日期函數(shù)和時(shí)間函數(shù)分別是DATE和TIME。
VBA提供了三個(gè)無參數(shù)函數(shù)：Date、Time、Now，分別返回當(dāng)前電腦系統(tǒng)的日期、時(shí)間、日期+時(shí)間。
下面的代碼我們以三個(gè)消息框來結(jié)合日期和時(shí)間函數(shù)，分別提示當(dāng)前的日期、時(shí)間。
Sub vba時(shí)間和日期函數(shù)()
MsgBox Date
MsgBox Time
MsgBox Now
End Sub
第二，使用vba日期和時(shí)間函數(shù)修改系統(tǒng)信息
下面這段代碼將電腦右下角的日期和時(shí)間修改為2011年1月1日21:50:00。
Sub 修改時(shí)間和日期()
Time = "21:50:00"
Date = "2011年1月1日"
End Sub
第三，用消息框返回當(dāng)前日期的年、月、日和當(dāng)前時(shí)間的時(shí)、分、秒
Sub SmpYearHour()
‘以對話框顯示當(dāng)前日期的年、月、日
MsgBox "當(dāng)前日期：" & Date & Chr(10) & _
"年：" & Year(Date) & Chr(10) & _
"月：" & Month(Date) & Chr(10) & _
"日：" & Day(Date)
‘以對話框顯示當(dāng)前時(shí)間的時(shí)、分、秒
MsgBox "當(dāng)前時(shí)間：" & Time & Chr(10) & _
"時(shí)：" & Hour(Time) & Chr(10) & _
"分：" & Minute(Time) & Chr(10) & _
"秒：" & Second(Time)
End Sub
第四，其余的vba日期和時(shí)間函數(shù)列表
Timer：返回一個(gè) Single，代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。
TimeSerial(hour, minute, second)：返回一個(gè) Variant (Date)，包含具有具體時(shí)、分、秒的時(shí)間。
DateDiff(interval, date1, date2[, firstdayofweek[, firstweekofyear]]) 返回 Variant (Long) 的值，表示兩個(gè)指定日期間的時(shí)間間隔數(shù)目。
Second(time) 返回一個(gè) Variant (Integer)，其值為 0 到 59 之間的整數(shù)，表示一分鐘之中的某個(gè)秒。
Minute(time) 返回一個(gè) Variant (Integer)，其值為 0 到 59 之間的整數(shù)，表示一小時(shí)中的某分鐘。
Hour(time) 返回一個(gè) Variant (Integer)，其值為 0 到 23 之間的整數(shù)，表示一天之中的某一鐘點(diǎn)。
Day(date)返回一個(gè) Variant (Integer)，其值為 1 到 31 之間的整數(shù)，表示一個(gè)月中的某一日。
Month(date) 返回一個(gè) Variant (Integer)，其值為 1 到 12 之間的整數(shù)，表示一年中的某月。
Year(date) 返回 Variant (Integer)，包含表示年份的整數(shù)。
Weekday(date, [firstdayofweek]) 返回一個(gè) Variant (Integer)，包含一個(gè)整數(shù)，代表某個(gè)日期是星期幾。
