我有两个文本框，有两个不同的日期：orderDate 和 receiveDate。收到的日期需要手动输入到表单中，我想包括在 orderDate 之后应该发生 receiveData 的验证，我已经尝试过：
If txtRecievedDate.Text < txtOrderDate.Text Then
MsgBox "Incorrect Date, item can't be recieved before order"
else
MsgBox "correct date"
End If
这不起作用，因为例如 RecievedDate 值为“19/11/2013”，OrderDate 值为“20/10/2013”，尽管这将是正确的日期，但此语句仅比较“19”和“20”，因此标记它是不正确的。
有没有办法比较文本框中的两个日期？为此，我使用 VBA
Thanks
以下是修复代码的方法。当然，这不是进行日期计算的最佳方法，您还必须验证两个文本框中是否有文本，甚至可能使用CDate()将文本解析为日期值，但这适用于您当前的情况。
If DateDiff("d", txtOrderDate.Text, txtRecievedDate.Text) < 0 Then
MsgBox "Incorrect Date, item can't be recieved before order"
else
MsgBox "correct date"
End If
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
