DateDiff 的多个变量 VBA

Question

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

提前致谢。

Answer 1

函数 DateSerial(2015,3,4) 将 return 日期为 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"

DateDiff 的多个变量 VBA

Multiple Vars for DateDiff VBA

excel

vba

datediff