DateDiff VBA的多个变量

Posted 2023-03-06

【中文标题】DateDiff VBA的多个变量

【英文标题】：Multiple Vars for DateDiff VBA

【发布时间】：2015-03-04 23:19:02

【问题描述】：

我现在有一个 VBA 脚本，它读取 6 个整数值。日期、月份和年份的 3 个值以及来自不同位置的相同类型的 3 个值。我想获取这些值并检查它们之间是否有超过一年的时间。 DateDiff 似乎是处理此问题的最简单方法，但是该函数将值作为一个 DateValue 读取（即 2015 年 3 月 20 日），并且我的值将单独返回（08,08,2015）。 我编写了一个函数，将每个值存储到一个 var 中，然后单独使用它们，我将它们连接成 DateValue 可以使用的格式。 这可行，但是我很好奇是否有另一种（更好的）方法来处理这个问题？

提前致谢。

【参考方案1】：

函数DateSerial(2015,3,4) 将返回 2015 年 3 月 4 日的日期，并且您的两个日期都采用该格式，您可以从另一个日期中减去一个日期，如果（绝对值）差异为> 365 那么你就知道他们相隔一年多了。

Dim A As Date
A = DateSerial(2015, 3, 4)
Dim B As Date
B = DateSerial(2014, 3, 2)
Dim C As Integer
C = Abs(A - B)
MsgBox C & " days between"