VBA将日期格式从DMY更改为MDY

将字符串与工作表中的值进行比较时出现问题.在csv文件中,我获得了一个BookingDate值为"8-9-2016" 的变量.我想遍历Excel工作表以检查是否与该值匹配.我发现当我想在VBA中使用它时,我从工作表中读取的值会发生变化.假设我设置了一个变量BookingDate2并给它一个这样的值:

LR = ThisWorkbook.Sheets("Sheetname").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LR
    BookingDate2 = ThisWorkbook.Sheets("Boekingen AMS-IAD").Cells(i, 1).Value

然后我想检查它是否找到了这样的匹配:

If (BookingDate = BookingDate2) Then
    'Do something

我现在BookingDate遇到的问题是价值"8-9-2016",价值BookingDate2应该是"8-9-2016",但是改为"9-8-2016".我怎样才能解决这个问题？

我修好了它!

我忘了将变量调暗到Date.就像这样:

Dim BookingDate As String
Dim BookingDate2 As String

但它必须是:

Dim BookingDate As Date
Dim BookingDate2 As Date

这对我有用.