Vba 确定日期之间的天数

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

我知道要得到我所做的年、月或日：

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

---

我想要完全不同。不仅仅是年份，我的两列是出生日期和年份。

日期在VBA内部以双倍形式存储，整数部分是自1900年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."

如果需要总天数，只需将其减去，然后使用基础double的数值：

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

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

检查此处（）或此处（）。