日期

Dim Value As Date

Date 型別在內部表示為帶符號的 64 位浮點資料型別，小數點左側的值表示從 1899 年 12 月 30 日 的紀元日期開始的天數 （儘管請參見下面的註釋）。小數點右邊的值表示作為小數日的時間。因此，整數 Date 的時間分量為 12:00:00 AM，x.5 的時間分量為 12:00:00 PM。

日期的有效值介於 1 月 1 日 100 和 12 月 31 日 9999 之間。由於 Double 具有更大的範圍，因此可以通過指定該範圍之外的值來溢位 Date。

因此，它可以與 Double for Date 計算互換使用 ：

Dim MyDate As Double
MyDate = 0                                  'Epoch date.
Debug.Print Format$(MyDate, "yyyy-mm-dd")   'Prints 1899-12-30.
MyDate = MyDate + 365
Debug.Print Format$(MyDate, "yyyy-mm-dd")   'Prints 1900-12-30.

轉換為 Date 的轉換函式是 CDate()，它接受任何數字型別的字串日期/時間表示。值得注意的是，日期的字串表示將根據當前使用的語言環境設定進行轉換，因此如果程式碼是可移植的，則應避免直接轉換。