比较date时input不匹配错误

此代码通过For Next循环第二次生成types不匹配错误。 我不知道为什么。

Dim HD As Integer Dim HireDate2 As Date Dim HireDate3 As Integer Dim today As Date today = Now() HD = 2 For HD = 2 To HireDate HireDate2 = Range("Z2:Z" & HD) MsgBox "Hire Date is " & HireDate2 If (HireDate2 > today) Then HireDate3 = HireDate3 + 1 End If HD = HD + 1 Next HD 

在此先感谢您的帮助

Answer 1

试试下面的代码：

 Dim HD As Long Dim HireDate2 As Date Dim HireDate3 As Long Dim MyToday As Date Dim HireDate As Long MyToday = Date ' <-- get today's date into a variable For HD = 2 To HireDate HireDate2 = Range("Z" & HD).Value MsgBox "Hire Date is " & HireDate2 If DateDiff("d", MyToday, HireDate2) > 0 Then ' <-- if HireDate 2 is in the future HireDate3 = HireDate3 + 1 End If Next HD