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

Posted 2021-03-28

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

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

结果应该是：43191

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

答案

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

所以你可以输入任何单元格=MyDate(A2)（或其他任何你需要的单元格引用）