excel vba需要日期作为整数值，如excels datevalue（）

Question

我尝试以“DD.MM.YYYY”方式获取以字符串形式提供的日期，更改为通常适用于日期的excel值。

我按照建议的那样尝试了=DATVALUE("19.01.2015")。但是，不是像strDate = "19.01.2015" MsgBox CDbl(strDate) 那样回馈42023，而是在我的情况下它返回19012015。

{{1}}

我该如何改变？

感谢

Answer 1

尝试将句号（句点）更改为斜杠，然后转换为日期，然后转换为双倍 请注意日期格式的区域变化 - 不确定它将如何影响结果 - 使用日期（例如01/02/2015）进行测试，看看它是否会返回2月1日或1月2日。

Sub test()

    Dim strdate As String

    strdate = "19.01.2015"
    MsgBox CDbl(CDate(Replace(strdate, ".", "/")))

End Sub