确定日期之间的天数

Question

如何在VBA中获得整个日期差异？

我知道要获得一年或者一个月或那天：

DateDiff("yyyy", Me.DateofBirth, Me.Year).

我想要完全不同。不只是年份，我所拥有的两个栏目是出生日期和年。

Answer 1

日期在VBA内部存储为双精度数，整数部分为自19/1年1月1日以来的天数。要获得两个日期之间的差异，您可以减去它们：

Dim dob As Date
dob = DateSerial(1990, 1, 1)

Dim difference As Date
difference = Now - dob

Debug.Print Year(difference) - 1900 & " years, " & _
            Month(difference) & " months, " & _
            Day(difference) & " days."

如果你想要总天数，你可以减去它们并使用底层双数的数值：

Dim dob As Date
dob = DateSerial(1990, 1, 1)

Dim days As Long
days = Now - dob
Debug.Print days & " days."