如何让text控件里只能输入"20030721"的日期格式？如果不是则提示出错。

Question

如何让text控件里只能输入"20030721"的日期格式？如果不是则提示出错。

Answer 1

可以考虑让用户选择日期，用Microsoft Windows Commn Controls-2.6 中的DTPicker控件，将Visible属性设为False,在Text控件的MouseDown事件中弹出日期选择控件，选择完成后将值赋给Text控件即可

Answer 2

mydate = mid("20030721",1,4) & "-" & mid("20030721",5,2) & "-" & mid("20030721",7,2)
if isdate(mydate) then
  ...
end if

Answer 3

用dtPicker控件显然是最好的办法

Answer 4

转换一下就行了if not isdate(text1.text) then 
    msgbox"不是日期数据" 
else
    text1.text=format(text1.text,"yyyymmdd")
endif

Answer 5

dtPicker控件可以解决这个问题

Answer 6

If Not IsDate(txtBorndate.Text) Then
            MsgBox "出生时间应输入日期格式（yyyy-mm-dd）！", vbOKOnly + vbExclamation, "警告"
            txtBorndate.SetFocus
        Else
            txtBorndate = Format(txtBorndate, "yyyy-mm-dd")

Answer 7

明白了，就用dtpicker.
给分！