如何将字符串转换成时间？

Question

比如我的字符串“20050511-010225”（组成：年月日-时分秒），如何将其转换成时间格式
如果不转换，类似上面字符串格式的能以时间为基准进行比较大小吗？

Answer 1

如果是这样的完整时间格式,可以直接进行字符串比较大小如果要转换的话,需要用mid函数一个个取出来再cdate

Answer 2

Private Sub Command1_Click()
Dim str As String
Dim temp As String
str = "20050511-010225"
temp = Left(str, 4) & "-" & Mid(str, 5, 2) & "-" & Mid(str, 7, 2) & " " & Mid(str, 10, 2) & ":" & Mid(str, 13, 2) & ":" & Right(str, 2)
Text1.Text = CDate(temp)
End Sub

Answer 3

function getdatetimebydatestring(byval datedatestring as string) as date
    return cdate(left(datestring,4) & "-" & right(left(date(datestring,6),2) & "-" & right(datestring,2)))
end function

Answer 4

要是大于小于，用DATE型数据直接比较就可以
如要计算详细差距，要用DATEDIFF函数
详细可查MSDN