时间戳

首页 > 解决方案 > 将日期从 dd.mm.yyyy 格式转换为 dd-mmm-yyyy

excel - 将日期从 dd.mm.yyyy 格式转换为 dd-mmm-yyyy

问题描述

最近我一直在尝试编写一个宏代码，用于将 dd.mm.yyyy 格式的日期范围转换为 dd-mmm-yyyy 格式。因此，我首先替换了"."with"-"并使用numberformat = dd-mmm-yyyy 了输出中似乎有错误，因为它将月份作为日期，将日期作为月份，例如，07.01.2020显示为01-Jul-2020.

以下是代码：

sub dateformat()

 range("A2").replace what:="." replacement:="-"
 range("A2").numberformat = "dd-mmm-yyyy"

end sub

如果有解决方案，请提供帮助。

标签： excelvbadate

解决方案

试试这个：

Sub fixdate()
    Dim s As String
    With Range("A2")
        s = .Text
        .Clear
        .NumberFormat = "dd-mm-yyyy"
        .Value = DateSerial(Right(s, 4), Mid(s, 4, 2), Left(s, 2))
      End With
End Sub

推荐阅读