在访问中截断双重

Question

我使用DateDiff()函数计算年龄。

Dim a As Double
a = DateDiff("d", Me.Age, Me.ApptDate) / 365

我想获得截断值而不是舍入值。

我只想要整数 - 没有小数。

我该怎么做？

Answer 1

我相信你是在INT()函数之后：

Dim a As Double
a = Int(DateDiff("d", Me.Age, Me.ApptDate) / 365)

或者您尝试过以下操作：

Dim a As Integer
a = DateDiff("d", Me.Age, Me.ApptDate) / 365