excel - VBA用字符串创建日期

Question

我正在尝试使用日期类型执行简单的任务，但我得到的不是我想要的。我想用分隔符分割一些单元格值并将字符串值返回到 DateValue 方法。

我的代码

Dim str2() As String
str2() = Split(Cells(ActiveCell.Row, 7).Value, ".")

Dim date1 As Date
date1 = DateValue(str(0) & "-" + str(1) & "-" & str(2))

我想做的是获取一些特定的日期格式。单元格中的日期格式如下:26.05.14(日.月.年)，我想要这样的格式 2014-05-26(年-月-日)。就这样。DateValue 方法返回日期 2000-01-02。我不知道如何查看 str2() 数组以查看 Split 方法之后有哪些值。我怎样才能做到这一点？

看来 VBA 与 VB.NET 完全不同...我对 VBA 没有经验。谢谢

Answer 1

您将拆分的返回值存储到“str2”中，然后将变量“str”使用到 DateValue 输入中，该输入未在您的代码中定义(因此它是空的)。通过将“Option Explicit”放在项目顶部来避免此类错误，在 VBA 中，它并不像 VB.NET 那样是强制性的，但实际上是可选的。这是工作代码:

Dim str2() As String
str2 = Split(Range("A2").Value, ".")

Dim date1 As Date
date1 = DateValue(str2(0) & "-" & str2(1) & "-" & str2(2))