用于将字符串格式转换为日期格式的VBA代码

Question

我在excel中有一个日期格式

  

Fri Aug 22 01:10:24 EDT 2014

我想使用VBA编码将其转换为08/22/2014 1:10 am格式。

Answer 1

试试这个：

Function CONVDATE(mydate) As Date
    Dim arr
    arr = Split(mydate)
    CONVDATE = arr(1) & " " & arr(2) & " " & arr(5) & " " & arr(3)
End Function

如果表达是标准的，这应该有用 它将返回 Date ，然后您可以使用excel中的自定义格式来获得所需的格式。 HTH

<强>结果：

您可以将其用作工作表功能并输入正常公式。