列表框值到目前为止

Question

我想将ListBox字符串值中的值转换为Date。

字符串如下：“Friday, 15 March 2015”（Excel：长日期）

如何将其转换为正常日期？ 我尝试了DateValue，但它给了我一个“Type mismatch”错误。

Answer 1

您可以通过两个步骤达到目的;首先，你需要摆脱字符串的“日”部分。然后，您可以使用Format函数将日期存储到Date类型变量中。这是一个例子：

Dim myDate As Date
myString = "Sunday, 29 March 2015"
newDate = Format(Split(myString, ",")(1), "Short Date")

Answer 2

您是否尝试过，主要问题是Short Date不期望“星期五”，因此您需要删除它（使用此，正则表达式或拆分：请参阅@MatteoNNZ解决方案以进行拆分）

Dim newDate as Date
newDate = Format(Right(oldDate, 14), "Short Date")