No.1

VBA程式設計中，獲取日期是一個簡單的功能，同樣對日期進行增減計算處理也是個容易的操作。

本節我們來了解一下關於計算機系統日期的一些操作。

DateAdd函式

如上圖所示，DateAdd是一個函式名。

可以簡單理解為日期相加。

也就是說根據某個日期進行增加或減少某個數值之後返回一個日期。

這樣，就得到了一個新的日期值。

比如，要以當前日期為基準，退後3天，那麼就是在當前日期增加3天。

程式碼如下：

DateAdd("d",3,Date)

DateAdd函式詳細語法和引數，如下圖所示：

No.2

DateAdd函式語法：

DateAdd(interval, number, date)

其中引數inerval限定了相加的型別，如以天為單位相加引數"d"，月為單位相加引數為"m"，可參考上圖進行設定。

number是一個數值，也就是時間間隔多少值，這個引數可以為正值，也可以負值，但必須是個整數long。

當然此引數還有一些規定，如果計算的日期位於年份數 100 前，也就是說減去年份數之後的結果必須大於等於100，否則會出現錯誤。

如：

Dim NextDate As DateNextDate = DateAdd("yyyy", -1921, "2021-2-15")MsgBox NextDate'返回"100/2/15"

-1921就是可以減去的最多年份，如果改成小於等於-1922則報錯。

也就是說不能得到小100的年份，至於是什麼原因造成這個結果？恐怕只有微軟知道。

No.3

Date函式

這個函式還是有一定意義的，比如設定某個年份為基準，向後推移2年。直接在這個年份之上加2就可以了。

那麼還有一個特別重要的日期函式，要掌握。

那就是Date函式。

此函式沒有引數，直接返回當前系統日期。

可使用如下程式碼：

Msgbox Date'輸出當前日期

No.4

Date語句

重點：Date函式和Date語句是兩個概念。

函式用於取日期，語句用於設定日期。

一個是獲取Get，一個是設定Set。

理解清楚之後，就可以使用不同的Date函式和語句進行不同的程式碼表達。

如果，想要設定當前系統日期為2020年12月25日。

可以使用如下語句：

Date="2020-12-25"

使用方法很簡單，問題在於要對概念進行正確理解。

No.5

設定系統日期

Private Sub SetDate()Dim NowDate As DateNowDate = Application.InputBox("設定日期", "輸入日期", VBA.Format(Date, "yyyy-mm-dd"))If Not IsDate(NowDate) Then Exit SubDate = NowDateEnd Sub

檢視當前日期後3年的日期

Private Sub GetYear()Dim NextDate As DateNextDate = DateAdd("yyyy", 3, Date)MsgBox NextDateEnd Sub

檢視當前日期3天前的日期

Private Sub GetUpDate()Dim NextDate As DateNextDate = DateAdd("d", -3, Date)MsgBox NextDateEnd Sub

日期功能函式和語句是個簡單的功能，但也是一個很重要的函式，必要掌握的一個知識。

所以，特別拿來整理學習一下。