列表框值为date

我想将我的ListBoxstring值中的值转换为Date 。

该string看起来像：“ Friday, 15 March 2015 ”（Excel：长date）

我怎样才能把它转换成正常的date？ 我尝试DateValue ，但它给了我一个“ Type mismatch ”的错误。

Answer 1

你可以分两步达到你的目的; 首先，你需要摆脱string的“一天”的一部分。 然后，可以使用Format函数将date存储到Datetypesvariables中。 这是一个例子：

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

Answer 2

你有没有尝试，主要的问题是，短date并不期望“星期五”，所以你需要删除它（无论是这样，一个正则expression式或拆分：请参阅@MatteoNNZ解决scheme的拆分）

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