列表框值到目前为止

时间:2015-03-29 01:02:02

标签: excel excel-vba vba

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

字符串如下:“Friday, 15 March 2015”(Excel:长日期)

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

2 个答案:

答案 0 :(得分:1)

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

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

答案 1 :(得分:0)

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

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