将excel VBA中的日期类型（Sun Apr 01 00:00:00 UTC 2018）转换为自定义函数

Question

我需要根据公式创建自定义函数： =DATEVALUE(CONCATENATE(MID(A2,8,3),MID(A2,4,4),RIGHT(A2,4)))

其中A2 = Sun Apr 01 00:00:00 UTC 2018

结果应该是：43191

我还需要这个功能可以在excel的任何地方使用

Answer 1

Function MyDate(val As Variant)
    MyDate = DateValue(Mid(val, 8, 3) & "-" & Mid(val, 4, 4) & "-" & Right(val, 4))
End Function

因此您可以键入任何单元格=MyDate(A2)（或任何您需要的单元格引用）