在VBA中将字符串转换为正确的日期格式

Question

我有一个很长的格式列表：YYYY-MM-DD或DD/MM/YYYY。我使用CDate()进行转换。但是，如果系统默认的日期为YYYY-MM-DD，我从DD/MM/YYYY转换错误的日期，其中日期和月份得到混合，如果日小于13例如：

date_string = "12/02/2016" 
date_string = Cdate(date_string) 
Debug.Print date_string #prints "2016-12-02" 

我明白CDate()很大程度上取决于系统和串格式。我想知道是否有一个很好的方法来捕捉日月和做正确的转换？该列表始​​终只包含两个提到的日期格式。

Answer 1

正如指出的@Rory下面的函数应该做的伎俩：

Function ConvertDate(strTMP As String) 

Select Case True 
    Case InStr(1, strTMP, "-", vbTextCompare) > 0 
     ConvertDate = DateSerial(Split(strTMP, "-")(0), Split(strTMP, "-")(1), Split(strTMP, "-")(2)) 
    Case InStr(1, strTMP, "/", vbTextCompare) > 0 
     ConvertDate = DateSerial(Split(strTMP, "/")(2), Split(strTMP, "/")(1), Split(strTMP, "/")(0)) 
    Case Else 
     ConvertDate = "error" 
End Select 

End Function