datediff 函数不返回正确的值。我只想知道前几个月之间的天差：1/03/2014（开始日期）和 30/03/2014（结束日期）
我测试过的代码：
Dim date1 as date
dim date2 as date
dim test as long
date1 = "1/03/2014"
date2 = "30/03/2014"
test = datediff("d", date1 , date2)
msgbox test
上面的代码返回 86 n，而不是 29 但如果我输入 1/01/2014（开始日期）和 30/01/2014（结束日期），它会起作用，结果是预期的 29 天。
我如何获得正确的值（在这种情况下（三月），29 天）？
【问题讨论】：
使用
DateSerial(2014, 3,1) 和 DateSerial(2014, 3,30)
设置日期。通过像您一样使用字符串，字符串被解释为日期，而 3 月 1 日被解释为 1 月 3 日。转换月份和日期。
根据您的评论，一个简单的转换与您的文本框一起使用，无需任何有效性测试：
strDate = "1/30/2014" 'as an example of the value coming from your TextBox
dateParts = split(strDate, "/") 'returns the date parts an array (zero based)
date1 = dateSerial(datePart(2), datePart(1), datePart(0))
【讨论】：
不要使用字符串并允许 VBA 尝试将它们解释为日期 - 使用 DateSerial 并具体说明：
date1 = DateSerial(2014, 3, 1)
date2 = DateSerial(2014, 3, 30)
【讨论】：
试试这个：
Dim date1 as date
dim date2 as date
dim test as long
date1 = "1/03/2014"
date2 = "30/03/2014"
test = datediff("y", date1 , date2)
msgbox test
【讨论】：