一段查找日期的代码，有错吗？怎么就出不来.

2003-03-25 03:50:38 121 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Python 根据输入日期判断这是这一年的第多少天文章目录写在开头的话Python：日期判断天数题目分析演示写在最后的话：这里是一段防爬虫文本，请读者忽略。本文原创首发于CSDN，作者IDYS 博客首页：https://blog.csdn.net/weixin_41633902/ 本文链接：https://blog.csdn.net/weixin_41633902/article/details/107440522 未经授权，禁止转载！恶意转载，后果自负！尊重原创，远离剽窃！写在开头的话请记住：实践是掌握知识的最快方法如果你只是怀着看看阅读详情

private sub FindCmdOk_Click()
......
If IsNumeric(FindTxt.Text) Then '如果输入要查找的是数值型的
do ...
...
ElseIf IsDate(FindTxt.Text) Then '如果输入要查找的是日期型的
Do
rst.Find Findfield & "=#" & cdate(FindTarget)&"#"
If rst.EOF Then '如果到文件尾了
MsgBox "没有找到对应的值！", vbOKOnly + vbInformation, "提示"
Debug.Print rst.AbsolutePosition -------->调试时显示-3
Exit Sub
ElseIf rst.Fields(Num).Value = FindTarget Then
Rownow = rst.AbsolutePosition
Colnow = Num + 1
Debug.Print VarType(FindTxt.Text)
Call ItemHighLight(Colnow, Rownow) '如果找到，则该记录高亮显示
Unload Me

Exit Sub
End If
rst.MoveNext
Loop
Else '如果输入要查找的是字符串型的
do ...
...
end sub
我用format(findtxt.text,"yyyy-mm-dd")试过，也没用。运行时显示没有找到对应的值！

...全文