VB6.0 将字符串转成时间

[txt22]

比如现在是2010年8月10日18点10分15秒
我定义了一个字符串： 20100810181015
怎么样转成标准的时间格式：2010-08-10 18：10：15

[贝隆]

Private Sub Command1_Click()
    Dim strTime As String
    strTime = "20100808165530"
    Text1.Text = Mid(strTime, 1, 4) & "-" & _
                 Mid(strTime, 5, 2) & "-" & _
                 Mid(strTime, 7, 2) & " " & _
                 Mid(strTime, 9, 2) & ":" & _
                 Mid(strTime, 11, 2) & ":" & _
                 Mid(strTime, 13, 2)
End Sub

[zdingyun]

Private Sub Command1_Click()
    Dim strDate As Date
    Dim strSj As String
    strSj = "20100810181015"
    strSj = Mid(strSj, 1, 4) & "-" & Mid(strSj, 5, 2) & "-" & Mid(strSj, 7, 2) & " " & Mid(strSj, 9, 2) & ":" & Mid(strSj, 11, 2) & ":" & Mid(strSj, 13, 2)
    strDate = CDate(strSj)
    Text1 = strDate
End Sub

[chinaboyzyq]

Private Sub Command1_Click()
    Dim t As String
    t = Format("20100810181015", "0000-00-00 00:00:00")
    MsgBox t
End Sub

[lhf9168]

楼上方法好

[mrchenhl]

楼上方法好！

[ratc]

用三楼的方法就可以转成了，如果要转成日期格式加个CDATE（）就可以了
CDATE（Format("20100810181015", "0000-00-00 00:00:00")）

[futurepi]

哈哈 来学习下

[cnuser1]

同意猴哥的做法。。。

[dadizhq]

我也想知道,呵呵

[njb8668]

学习了，谢谢。

[zenter]

3楼正解

[FL283]

猴哥的主意好啊，学习了

[tongfeng1981]

学习了

[神马都能聊]

Private Sub Command1_Click()
    Dim t As String
    t = Format("20100810181015", "yyyy-MM-dd hh:mm:ss")
    MsgBox t
End Sub

[嗷嗷叫的老马]

顶顶楼上各位。

[Roock]

学习了.

[zuoxingyu]

[Quote=引用 16 楼 aisac 的回复:]

VB code
Private Sub Command1_Click()
Dim t As String
t = Format("20100810181015", "yyyy-MM-dd hh:mm:ss")
MsgBox t
End Sub
[/Quote]

这种格式化的方法好。

[xinheng3]

学猴哥的，我也用过format（）好方便的。

[赵4老师]

[Quote=引用 3 楼 chinaboyzyq 的回复:]
VB code

Private Sub Command1_Click()
Dim t As String
t = Format("20100810181015", "0000-00-00 00:00:00")
MsgBox t
End Sub
[/Quote]
强！学习了。受教了。