除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請(qǐng)保留鏈接: http://www./cat1/226.html，VBA交流群273624828。

今天來(lái)講一下VBA中一些常用的日期函數(shù)。先把代碼寫出來(lái)，再來(lái)一一講解。

Sub test()
Dim t1, t2, t3, t4, t5, t6, t7, t8, t9, d, jgm, jgy
t1 = #9/20/2014#
t2 = #9/19/2014#
Debug.Print t1 - t2        '日期可以直接比大小或做運(yùn)算
t3 = DateSerial(2014, 9, 7)
t4 = DateAdd("m", 1, #9/20/2014#)   '在原日期上加1月，2014/10/20
t5 = DateAdd("d", 1, #9/20/2014#)   '在原日期上加1天,2014/9/21
t6 = #9/20/2014# + 1        '在原日期上加1天，2014/9/21
Debug.Print t3, t4, t5, t6
t7 = Year(t1)     '提取日期的年份
t8 = Month(t1)    '提取日期的月份
t9 = Day(t1)
d = Day(DateSerial(Year(t1), Month(t1) + 1, 1) - 1)   '計(jì)算t1日期所在月有多少天
Debug.Print d
jgm = DateDiff("m", #7/20/2014#, #9/9/2014#)      '計(jì)算兩個(gè)日期間隔多少個(gè)月，這里7月和9月間隔2個(gè)月
Debug.Print jgm
End Sub

在VBA中，日期直接賦值的方式是#日期#，之間用“/”連接，日期可以直接加減數(shù)字，代表的是在當(dāng)前日期加幾天或減幾天，兩個(gè)日期之間可以直接比較大小。

給日期變量賦值可以用DateSerial函數(shù)，其三個(gè)參數(shù)分別是年、月、日，這個(gè)函數(shù)在不能事先知道具體日期時(shí)可以用，其中的年、月、日三個(gè)參數(shù)可以是其他的變量，例如DateSerial(range("A1"),range("B1"),range("C1"))。

DateAdd函數(shù)可以在當(dāng)前日期上直接加月數(shù)，比如DateAdd("m", 1, #9/20/2014#) 表示在2014年9月20日這個(gè)日期上加上1個(gè)月，參數(shù)“m”就是月的縮寫，加天數(shù)“m”變成“d”即可，當(dāng)然加天數(shù)也可以在日期后直接加數(shù)字，效果是一樣的。

Year，Month，Day三個(gè)函數(shù)分別代表取日期的年、月、日的數(shù)字，Day(DateSerial(Year(t1), Month(t1) + 1, 1) - 1)就是計(jì)算日期表示的這個(gè)月有多少天，就是用下個(gè)月1號(hào)減1得這個(gè)月最后一天，再用Day函數(shù)取出這個(gè)天數(shù)。

DateDiff可以計(jì)算兩個(gè)日期間隔多少個(gè)月或天，“m”代表月，“d”代表天。

在DateAdd和Datediff中不能直接計(jì)算年，因?yàn)橐荒晔枪潭?2個(gè)月，所以折算一下就好了。

再補(bǔ)充一個(gè)，當(dāng)前日期是Date。

示例文件就不上了。