输入日期的VBA解释

Question

我有这个恼人的日期格式与 Excel VBA 不一致。我有一个源文本文件，其日期格式为 dd/mm/yyyy (即理智的格式)。但我需要将其转换为 yyyy/mm/dd (为了保持一致性，我还在我的计算机中将此格式设置为默认格式)。

当我将此文本文件导出到数据库时，如果两个 dd和 mm值小于 12，VBA 将它们视为 mm/dd/yyyy而不是 dd/mm/yyyy .即使我对这种非标准的日期格式，糟糕的 VBA 感到非常困惑。

例如，我有 06/08/2015在文本文件中，即 6th August , 但是 CDate("06/08/2015")返回 2015/06/08 ，即 8th June .但是如果文本文件有 15/08/201 5、VBA可以识别为2015/08/15 .

如何告诉 VBA 06/08/2015在 dd/mm/yyyy格式？

对于这项烦人且乏味的任务的任何帮助将不胜感激!

Answer 1

使用 DateSerial() 而不是 CDate():

    Dim d$
    d = "06/08/2015"
    MsgBox DateSerial(Right$(d, 4), Mid$(d, 4, 2), Left$(d, 2))

通过这种方式，您可以控制日期的哪些位。