access vba查找日期在个位数天内不起作用

我正在尝试将access数据库中的数据复制到excel电子表格中

首先，我需要通过搜索日期来找到正确的列，这对于日期为2位数的日期（即2017年9月16日）很有效，但是对于日期为1位数的日期（2017年9月6日），它无法找到日期

在excel中，我尝试在2017年9月6日进行查找，结果发现很好，但找不到2017年9月6日

我在access中的字段显示为2017年9月6日，因此我不确定问题出在哪里，我尝试了下面的代码（所有代码都具有相同的结果）

是否自动添加0？如果是，为什么？我该如何阻止它？
还是其他问题？

找到了解决方案
我只是检查是否从format函数中添加了0，如果添加了，则删除0

dataDate = Format(Me.RejectDatetb, "dd/mm/yyyy")
If Left(dataDate, 1) = "0" Then
    dataDate = Right(dataDate, Len(dataDate) - 1)
End If
colNo = .Cells.Find(What:=dataDate, After:=.Cells(1, 1), LookIn:=(-4123), SearchOrder:=2, SearchDirection:=1, MatchCase:=False).Column

---

DD/MM/YYYY是国际格式，不是访问标准，即MM/DD/YYYY。复习。在Format函数中使用dd强制占位符0，使其格式化为06，而不是6。我很惊讶Format函数在引号中没有格式掩码的情况下还能工作。Format函数的结果是一个字符串，而不是一个日期值。我只是重读了这个问题。很奇怪。格式化的日期应与2017年9月6日匹配，而不是2017年9月6日。@June7哦，糟糕，我运行它时确实有引号，但我只是匆忙地从CDate 1重写了它，以显示我在美国境外的新西兰的问题IM中复制它时尝试过的内容。因此，我的区域设置是新西兰，默认日期格式是dd/mm/yyyy，不确定它是否会影响到这一切，但我只是说以防万一

dataDate = Format(Me.RejectDatetb, "dd/mm/yyyy")
If Left(dataDate, 1) = "0" Then
    dataDate = Right(dataDate, Len(dataDate) - 1)
End If
colNo = .Cells.Find(What:=dataDate, After:=.Cells(1, 1), LookIn:=(-4123), SearchOrder:=2, SearchDirection:=1, MatchCase:=False).Column