vba - 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 conversion function是您获得数字日期值的地方，它将接受另一天的添加。