今日的內容是“VBA之EXCEL應用”的第十章“VBA中日期和時間的處理”。這講是第3節“日期的比較方案”。這套教程從簡單的錄製宏開始講解，一直到窗體的搭建，內容豐富，案例眾多。大家可以非常容易的掌握相關的知識，這套教程面向初學人員，共三冊，十七章，都是我們在利用EXCEL工作過程中需要掌握的知識點，希望大家能掌握利用。

第三節 日期的比較方案

大家好，我們這講的內容是日期的比較，我們在處理資料時，比較是非常普遍的應用，對於兩個數字，我們很容易實現大小的比較，那麼日期的比較是否和數字是一樣呢？這講的內容給大家以解決方案。

1 Date函式

這個函式返回包含當前系統日期的Variant(Date)。

語法：Date

Date 函式返回當前系統日期。2 數字和日期的相互轉換

我們看下面的一系列數字：

我們可以將這些數字理解為就是日期。只是一種輸入日期的格式問題。這些數字的意義是自1900年1月0日以來的天數。

如果我們將格式改為日期格式(右鍵單擊列標題，格式化單元格並選擇日期)。這個時候會看到下面的轉換結果：

3 日期的比較例項

從上面的講解中，我們看到日期的比較是可以實現的，我們看下面程式碼：

Sub mynzB() '日期的比較例項

For i = 1 To 5

Cells(i, 1).Font.Color = 1

If Cells(i, 1).Value = Date Then Cells(i, 1).Font.Color = vbRed

If Cells(i, 1).Value < DateValue("April 19, 2020") Then Cells(i, 1).Font.Color = vbBlue

Next

End Sub

程式碼截圖：

程式碼解讀：

1） Cells(i, 1).Font.Color = 1 將當前單元格變為正常顏色（黑色）。

2） If Cells(i, 1).Value = Date Then Cells(i, 1).Font.Color = vbRed

如果單元格是當前日期，那麼就設定字型為紅色

3）If Cells(i, 1).Value < DateValue("April 19, 2020") Then Cells(i, 1).Font.Color = vbBlue

如果單元格的日期小於2020.4.19日，那麼將字型設定為藍色。

DateValue("April 19, 2020") 可以用DateValue("2020/4/19") 等不同的格式替代

下面看程式碼的執行結果：

今日內容迴向：

1） Date函式的作用是什麼？

2） 如何理解日期格式中數字？

3） 如何進行日期的比較？

本講內容參考程式檔案：工作簿10.xlsm

分享成果，隨喜正能量

VBA的應用及學習方法：

VBA是利用Office實現個人小型辦公自動化的有效手段（工具）。這是我對VBA的應用界定。在取代OFFICE新的辦公軟體沒有到來之前，誰能在資料處理方面做到極致，誰就是王者。其中登峰至極的技能非VBA莫屬！

我記得20年前自己初學VBA時，那時的資料甚少，只能看原始碼自己琢磨,真的很難。20年過去了，為了不讓學習VBA的朋友重複我之前的經歷，我根據自己多年VBA實際利用經驗，推出了七部VBA專門教程。

第一套：VBA程式碼解決方案 是VBA中各個知識點的講解，教程共147講，覆蓋絕大多數的VBA知識點，提供的程式檔案更是一座不可多得的程式碼寶庫，是初學及中級人員必備教程；目前這套教程提供的版本是修訂第二版，程式檔案透過32位和64位兩種OFFICE系統測試。

第二套：VBA資料庫解決方案 資料庫是資料處理的專業利器，教程中詳細介紹了利用ADO連線ACCDB和EXCEL的方法和例項操作，適合中級人員的學習。目前這套教程提供的是修訂第一版教程，程式檔案透過32位和64位兩種OFFICE系統測試。

第三套：VBA陣列與字典解決方案 陣列和字典是VBA的精華，字典是VBA程式碼水平提高的有效手段，值得深入的學習，是初級及中級人員程式碼精進的手段。目前這套教程提供的版本是修訂第一版，程式檔案透過32位和64位兩種OFFICE系統測試。

第四套：VBA程式碼解決方案之影片 是專門面向初學者的影片講解，可以快速入門，更快的掌握這門技能。這套教程是第一套教程（修訂一版）的影片講解，影片更易接受。

第五套：VBA中類的解讀和利用 這是一部高階教程，講解類的虛無與肉身的度化，類的利用雖然較少，但仔細的學習可以促進自己VBA理論的提高。這套教程的領會主要是讀者的領悟了，領悟一種佛學的哲理。目前這套教程提供的版本是修訂第一版，程式檔案透過32位和64位兩種OFFICE系統測試。

第六套教程：VBA資訊獲取與處理，這是一部高階教程，涉及範圍更廣，實用性更強，面向中高階人員。教程共二十個專題，包括：跨應用程式資訊獲得、隨機資訊的利用、電子郵件的傳送、VBA網際網路資料抓取、VBA延時操作，剪下板應用、Split函式擴充套件、工作表資訊與其他應用互動，FSO物件的利用、工作表及資料夾資訊的獲取、圖形資訊的獲取以及定製工作表資訊函式等等內容。程式檔案透過32位和64位兩種OFFICE系統測試。

第七套教程：VBA之EXCEL應用 這是一部初級教程這部教程共三冊，從從建立宏、對話方塊、工作簿和工作表物件、單元格物件等基礎內容講起，到迴圈結構、錯誤處理、字串操作、日期和時間、事件、陣列應用，函式過程等方面，一直講解到控制元件和窗體物件的應用都是我們提高自己EXCEL水平的必須。

以上各教程學習順序：7→1(或者4)→3→2→6→5。其中第四套是對第一套的影片講解，所以第一和第四隻選其一即可。