DateDiff VBA的多个variables

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

提前致谢。

Answer 1

函数DateSerial(2015,3,4)将返回DateSerial(2015,3,4)的date，并且在该格式的两个date中，可以从另一个date中减去一个date，如果（绝对值）差异是> 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"