格式转换

[qw12380]

text1.text='20030101'
如何将它转换成2003-01-01这种格式

[wang7655]

什么意思？

转换为日期格式？

[northwolves]

format(DateSerial(Mid("20030101", 1, 4), Mid("20030101", 5, 2), Mid("20030101", 7, 2)),"yyyy-mm-dd")

[zhangqs]

直接用
format("20030101","YYYY-MM-DD")即可

[海牛]

Private Function GetDate(ByVal strS As String) As String
Dim strY As String, strM As String, strD As String

strY = Mid$(strS, 1, 4)
strM = Mid$(strS, 5, 2)
strD = Mid$(strS, 7, 2)
GetDate = strY & "-" & strM & "-" & strD
End Function

Private Sub Form_Load()
MsgBox GetDate("20030101")
End Sub

[海牛]

Private Sub Form_Load()
MsgBox Format("20030101", "####-##-##")
End Sub

[yjch]

Private Sub Command1_Click()
Dim a(100)
Dim str, b As String
j = Len(Text1.Text)
b = Text1.Text
For i = 1 To j
a(i) = Mid(b, i, 1)
str = str & a(i)
If i = 4 Then
str = str & "-"
End If
If i = 6 Then
str = str & "-"
End If
Next
Text2.Text = str
End Sub
'当在"Text1box1"中输入"20030201"是，在"Textbox2"中可以得到你要的结果........