excel - VBA用字符串创建日期

标签 excel vba date

我正在尝试使用日期类型执行简单的任务,但我得到的不是我想要的。我想用分隔符分割一些单元格值并将字符串值返回到 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 没有经验。 谢谢

最佳答案

您将拆分的返回值存储到“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))

关于excel - VBA用字符串创建日期,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/26422089/

相关文章:

vba - Excel VBA为事件单元格制作超链接

excel - 连续工作表切换循环

ruby-on-rails - 如何在 Rails 中找到当前的双周周期

vba - 是否可以从批处理文件将错误代码返回到 VBA?

excel - 如何使用 VBA 使用 @ 作为分隔符导入 csv 文件

excel - 打开文件会引发错误 : "Cannot find project or library"

ms-access - 如何 Access Access 中选定的行?

excel - 如何使用Excel VBA计算一个UTF8字符的字节长度?

c# - 值 xxx 对 yyy 无效。错误的日期时间格式

Java SQL 日期偏差 1 天