Excel VBA:将日期格式从YYYY-MM-DD-HH.MM.SS.Milli转换为DD / MM / YYYY HH:MM:SS

时间:2016-07-05 02:45:49

标签: excel vba date datetime

我有以下日期时间转换为格式DD/MM/YYYY HH:MM:SS

细胞类型:一般

2011-01-29-10.23.23.123100

我的尝试:

功能:

Function ConvertDate(D1 As Date) As Long

 ConvertDate = Substitute(Substitute(Substitute(D1, "/", " ", 3), ".", ":", 1), ".", ":", 1) * 1

End Function

结果:

#VALUE!

无法获得预期的结果。

1 个答案:

答案 0 :(得分:1)

使用,

=--LEFT(REPLACE(SUBSTITUTE(A1, ".", ":"), 11, 1, CHAR(32)), 20)

(或等效的VBA)。格式化(或将Range.NumberFormat property设置为)DD/MM/YYYY HH:MM:SS

replace_date
请注意,A1是左对齐的(即文本),B1是右对齐的(即真正的数字日期