excel中vba日期函數(shù)與vba時間函數(shù)的應(yīng)用以及相關(guān)的函數(shù)下文

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

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

　　VBA提供了三個無參數(shù)函數(shù)：Date、Time、Now，分別返回當(dāng)前電腦系統(tǒng)的日期、時間、日期+時間。

　　下面的代碼我們以三個消息框來結(jié)合日期和時間函數(shù)，分別提示當(dāng)前的日期、時間。

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

第二，使用vba日期和時間函數(shù)修改系統(tǒng)信息

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

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

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

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

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

　　Timer：返回一個 Single，代表從午夜開始到現(xiàn)在經(jīng)過的秒數(shù)。

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

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

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

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

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

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

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

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

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