VB中文本框在输入20130101数字时自动转成2013-01-01的日期格式
展开全部
Dim Mydate As Date
Mydate = CDate(Left(Text1.Text, 4) & "-" & Mid(Text1.Text, 5, 2) & "-" & Right(Text1.Text, 2))
Print Mydate
Mydate = CDate(Left(Text1.Text, 4) & "-" & Mid(Text1.Text, 5, 2) & "-" & Right(Text1.Text, 2))
Print Mydate
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
Excel表格中的计数函数主要用于统计单元格区域中满足特定条件的数值或非空单元格的数量。最常用的计数函数是`COUNT`和`COUNTA`。`COUNT`函数用于统计选定区域内数值型单元格的数量，忽略文本和空单元格。而`COUNTA`函数则...
点击进入详情页
本回答由TableDI提供
展开全部
双击文本框加入下面代码即可
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
left(text1,4)+"-"+mid(text1,5,2)+"-"+right(text1,2)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Private Sub Text1_Change()
strdate = trim(Text1.Text)
strdate = format(strdate,"YYYY-MM-DD")
Text1.Text=strdate
End Sub
strdate = trim(Text1.Text)
strdate = format(strdate,"YYYY-MM-DD")
Text1.Text=strdate
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
