20070604103030如何转化成2007-06-04 10:30:30

20070604103030怎么转化成2007-06-04 10:30:30?在线等
20070604103030怎么转化成2007-06-04   10:30:30?在线等

------解决方案--------------------
Dim sj as String
Dim sj1 as String
sj1 = Mid(sj,1,4) & "- " & Mid(sj,5,2) & "- " & Mid(sj,7,2) & " " & Mid(sj,9,2) & ": " & Mid(sj,11,2) & ": " & Mid(sj,13,2)
------解决方案--------------------
Dim sj as String
Dim sj1 as String

sj= "20070604103030 "
sj1 = Mid(sj,1,4) & "- " & Mid(sj,5,2) & "- " & Mid(sj,7,2) & " " & Mid(sj,9,2) & ": " & Mid(sj,11,2) & ": " & Mid(sj,13,2)

sj1就是你要的，调用即可。
------解决方案--------------------
抱歉未将sj赋值，代码修改如下：
Dim sj as String
Dim sj1 as String
sj = “20070604103030”
sj1 = Mid(sj,1,4) & "- " & Mid(sj,5,2) & "- " & Mid(sj,7,2) & " " & Mid(sj,9,2) & ": " & Mid(sj,11,2) & ": " & Mid(sj,13,2)

------解决方案--------------------
dim s as string
s= "20070604103030 "
s=format(s, "####-##-## ##:##:## ")
? s