第一，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()
    '以對(duì)話框顯示當(dāng)前日期的年、月、日
    MsgBox "當(dāng)前日期：" & Date & Chr(10) & _
           "年：" & Year(Date) & Chr(10) & _
           "月：" & Month(Date) & Chr(10) & _
           "日：" & Day(Date)
    '以對(duì)話框顯示當(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è)日期是星期幾。

核心關(guān)注：拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。

轉(zhuǎn)載請(qǐng)注明出處：拓步ERP資訊網(wǎng)http://www.ezxoed.cn/

本文標(biāo)題：vba日期和時(shí)間函數(shù)匯總和代碼

本文網(wǎng)址：http://www.ezxoed.cn/html/support/11139213315.html