VBA使用句点作为日期分隔符将字符串转换为日期

Question

我尝试了以下操作，但没有成功，

Dim my_date_string As String
Dim my_date_date As Date
my_date_string = "22.10.2020"
my_date_date = CDate(my_date_string)
Debug.Print my_date_string
Debug.Print my_date_date

也尝试过，

my_date_date = Format(my_date_string, "DD.MM.YYYY")

Answer 1

CDate不将句点理解为分隔符。

如果出于某种原因，您需要它们成为String变量中的句点，只需像这样替换它们：

my_date_date = CDate(Replace(my_date_string, ".", "/"))

如果变量中没有句点，Replace函数将不执行任何操作。