Question

VB中文本框在输入20130101数字时自动转成2013-01-01的日期格式

Answer 1

Dim Mydate As Date
Mydate = CDate(Left(Text1.Text, 4) & "-" & Mid(Text1.Text, 5, 2) & "-" & Right(Text1.Text, 2))
Print Mydate

Answer 2

双击文本框加入下面代码即可
Private Sub Text1_Change()
a1 = LTrim(Text1.Text)
If Len(a1) = 8 And InStr(1, a1, "-") = 0 Then
b1 = Left(a1, 4): b2 = Mid(a1, 5, 2): b3 = Right(a1, 2)
a1 = b1 & "-" & b2 & "-" & b3
End If
Text1.Text = a1
End Sub

Answer 3

left(text1,4)+"-"+mid(text1,5,2)+"-"+right(text1,2)

Answer 4

Private Sub Text1_Change()
strdate = trim(Text1.Text)
strdate = format(strdate,"YYYY-MM-DD")

Text1.Text=strdate

End Sub