Excel VBA將字符串日期轉換為實際日期

Question

我正在使用以下代碼，但由於某種原因，第二行未將其轉換為實際日期。

DateStr = Replace(DateStr, "-", "/")
DateStr = Format(CDate(DateStr), "dd/mm/yyyy")
DateStr = DateStr + 1

即使我這樣做：

Dim RealDate As Date

DateStr = Replace(DateStr, "-", "/")
RealDate = Format(CDate(DateStr), "dd/mm/yyyy")
RealDate = RealDate + 1

正如您從第3行看到的那樣，我正在嘗試將+1調整為當天，這也可能會更改月份或年份。

Answer 1

您在確定應該在日期上加1的位置時遇到了麻煩。 嘗試，

DateStr = Format(CDate(DateStr) + 1, "dd/mm/yyyy")

CDate轉換功能是您獲取數字日期值的地方，它將接受另一天的增加。

Answer 2

第二個對我有效：

Sub Tester()

    Dim RealDate As Date, DateStr As String

    DateStr = "7-20-2015"

    DateStr = Replace(DateStr, "-", "/")
    RealDate = Format(CDate(DateStr), "dd/mm/yyyy")
    RealDate = RealDate + 1

    Debug.Print RealDate '>> 7/21/2015

End Sub