格式转换

Question

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

Answer 1

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

Answer 2

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

Answer 3

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 FunctionPrivate Sub Form_Load()
    MsgBox GetDate("20030101")
End Sub

Answer 4

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

Answer 5

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"中可以得到你要的结果........