如何解决混合日期格式

Question

我正在尝试在 Excel 2010 中编写 VBA 代码来进行一些时间计算。一切都按我想要的方式工作，但对于单元格日期格式。 Excel 表格是通过合并由不同 PC 和硬件数据记录器生成的多个 .xlsx 文件创建的。问题是有些工作表的日期为mm/dd/yy hh:mm:ss AM/PM，而另一些工作表的日期为dd/mm/yy hh:mm:ss AM/PM，两者混合在一个文件中。

我尝试将所有内容更改为Selection.NumberFormat = "dd/mm/yy hh:mm;@"，但有些单元格并没有改变。我也试过这个功能：

Function Arreglar_Fecha()
    Dim temp As String
    temp = ""
    Do While ActiveCell.Value <> ""
       temp = ActiveCell.Value
       ActiveCell.Value = Day(temp) & "/" & Month(temp) & "/" & Year(temp) & " " & Hour(temp) & ":" & Minute(temp)
       ActiveCell.Offset(1, 0).Select
    Loop
End Function

但是，有些单元格发生了变化，有些则没有。更糟糕的是，有些日期和月份混在一起！

我可以访问一些原始 .xlsx 文件，但其中的所有日期格式也无法更改。

有人知道我该如何解决这个问题吗？

编辑在这里我获得了放置原始Excel文件Excel Data的权限。

Answer 1

您必须追溯您的源数据。例如，Excel 本身无法知道 2014 年 1 月 2 日应该是 2 月 1 日还是 1 月 2 日，只能知道它是 41671 还是 41641。

编辑在您的第二个示例中，显然 28/9/2013 17:59 是 9 月 28 日。如果 10/01/13 12:11:00 PM 具有相同的格式（可能来自同一个文件），那么它是 1 月 10 日。但如果格式是不同的，那么它可能是 10 月 1 日。如果您看到格式为 dd/mm/yy hh:mm;@ 的 AM 和 PM，那么您的一些数据是文本，并且没有可靠的“自动”方法可以在不知道的情况下将其切换为日期/时间序列号文本约定（即无论是 DMY 还是 MDY），因此需要恢复为源。

显然，大于 12 的“日”值实际上是月份，但对于小于 13 的情况，这并没有多大帮助，这取决于格式。

此外，鉴于您的各种来源，可能会同时使用 1900 和 1904 约定，甚至可能还使用其他约定（您的数据记录器可能使用 UNIX 时间，从 1970 年开始）。

Answer 2

ActiveCell.Value = Day(temp) & "/" & Month(temp) & "/" & Year(temp) & " " & Hour(temp) & ":" & Minute(temp)

也许代码将其作为文本读取？试试这个（未测试）

Sub Arreglar_Fecha()
    Dim temp As String, Tmp As String
    Dim D As String, M As String, Y As String
    Dim H As String, Mn As String

    Do While ActiveCell.Value <> ""
       temp = Trim(ActiveCell.Value)

       D = Trim(Split(temp, "/")(0))
       M = Trim(Split(temp, "/")(1))

       Tmp = Trim(Split(temp, "/")(2))

       Y = Trim(Split(Tmp, " ")(0))

       Tmp = Trim(Split(Tmp, " ")(1))

       H = Trim(Split(Tmp, ":")(0))
       Mn = Trim(Split(Tmp, ":")(1))

       ActiveCell.Value = Format(DateSerial(Val(Y), Val(M), Val(D)) & _
                          " " & TimeSerial(Val(H), Val(Mn), 0), _
                          "dd/mm/yy hh:mm;@")

       ActiveCell.Offset(1, 0).Select
    Loop
End Sub

使用单个测试场景进行尝试是可行的。下面给你13/08/13 05:31

Sub Test()
    Dim temp As String, Tmp As String
    Dim D As String, M As String, Y As String
    Dim H As String, Mn As String

    temp = "13/8/2013 5:31"

    D = Trim(Split(temp, "/")(0))
    M = Trim(Split(temp, "/")(1))

    Tmp = Trim(Split(temp, "/")(2))

    Y = Trim(Split(Tmp, " ")(0))

    Tmp = Trim(Split(Tmp, " ")(1))

    H = Trim(Split(Tmp, ":")(0))
    Mn = Trim(Split(Tmp, ":")(1))

    Debug.Print Format(DateSerial(Val(Y), Val(M), Val(D)) & _
                " " & TimeSerial(Val(H), Val(Mn), 0), _
                "dd/mm/yy hh:mm;@")
End Sub