format函数问题

[czzhangzhen]

我想将111111这个字符串转成年月日表达
用了这个函数format(cdate(x),"yy-m-d")
输出为什么不是11年11月11日而是04-3-17啊

[LCAAA]

DateSerial(Left$(x, 2), Mid$(x, 3, 2), Mid$(x, 5, 2))

[yyyyyhhhhwwww]

楼主写的是时间的格式而已，并没有把字符串转化，1#的可以！！

[czzhangzhen]

那如何返回时分秒

[czzhangzhen]

比如111111111111这个字符串 如何返回2011年11月11日11时11分11秒这个日期格式啊

[SYSSZ]

Private Sub Command1_Click()
S = "111111111111"
For i = 1 To Len(S) - 1 Step 2
If i < 5 Then
S1 = S1 & Mid(S, i, 2) & "-"
ElseIf i = 5 Then
S1 = S1 & Mid(S, i, 2) & " "
ElseIf i > 5 Then
S1 = S1 & Mid(S, i, 2) & ":"
End If
Next
S1 = Left(S1, Len(S1) - 1)
S1 = Format(S1, "yyyy-mm-dd hh:mm:ss")
MsgBox S1
End Sub

[chinaboyzyq]

[Quote=引用 4 楼 czzhangzhen 的回复:]

比如111111111111这个字符串 如何返回2011年11月11日11时11分11秒这个日期格式啊
[/Quote]

Private Sub Command1_Click()
    Dim s1 As String, s2 As String, s3 As String, i As Integer
    s1 = "111111111111"
    s2 = "年月日时分秒"
    For i = 0 To Len(s1) \ 2 - 1
        s3 = s3 & Mid(s1, i * 2 + 1, 2) & Mid(s2, i + 1, 1)
    Next
    s3 = "20" & s3
    MsgBox s3

End Sub