日期

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()，它接受任何数字类型的字符串日期/时间表示。值得注意的是，日期的字符串表示将根据当前使用的语言环境设置进行转换，因此如果代码是可移植的，则应避免直接转换。