Question

VB中怎么对“2018/5/1 星期二 16:28:12”日期转换

如题，由于某些电脑的设置，日期自带周几，请问这样的日期怎么转换，用CDate，或者format都会出现错误类型13的类型不匹配的错误
使用什么方法可以正确转换，且不出错，谢谢

Answer 1

没有错误

追问

输出是没有错误的，但是想把
2018/5/1 星期二 16:28:12
这个转成日期就出错了

追答

贴出你获取 2018/5/1 星期二 16:28:12 时的代码 和 你需要转换时的代码

追问

就是这样的简单语句，想把带有日期格式的字符串转成日期格式，一转换就出错

追答

如果你获取日期的方式是截取字符串 而非 now date函数而来 那你就继续使用截取的方式 去掉2个空格中间的 中文星期 然后再转回日期类型

追问

主要是有些人的电脑默认日期格式会设置成这样，我获取时间的时候会导致获取到这样的格式，然后再用就会出错了
看来还是只能用标准日期格式化以后再输出了，问一下问题只是看这个有没有解决的办法的，谢谢！

Answer 2

Public Function DateConversion(ByVal DateVar As Variant) As Date
Dim TempVar As Variant
Dim TempStr As String
Dim n As Long
If IsDate(DateVar) = True Then
DateConversion = DateVar
Else
If IsEmpty(DateVar) = True Then
DateConversion = 0
Else
'2018/6/12 星期二 8:35:26
TempStr = ""
DateVar = Trim(DateVar)
TempVar = Split(DateVar, " ")
For n = 0 To UBound(TempVar)
If IsDate(TempVar(n)) = True Then TempStr = TempStr & " " & TempVar(n)
Next n
Set TempVar = Nothing
TempStr = Trim(TempStr)
If IsDate(TempStr) = True Then
DateConversion = CDate(TempStr)
Else
DateConversion = 0
End If
End If
End If
End Function