在线等待，如何强迫客户输入的格式为：2003-10-31，这个样式？

Question

我们要求客户在text1.text中，输入的时间格式必须为2003-10-31,否则视为无效，应该怎么做？

Answer 1

why not using a DateTimePicker if you want a date input?or try to use Microsoft Masked Edit Control, and use a Mask like "####-##-##", if you want an exact date, you need to do some checking in its Change event

Answer 2

用
Microsoft Masked Edit Control 6.0  部件，设置mask属性为 ####-##-##

Answer 3

1.如果你用了数据库，那么该字段可以设定为日期/时间
2.Microsoft Masked Edit Control 6.0  部件，设置mask属性为 ####-##-##

Answer 4

mask好用，我补充一点楼上的啊，其他同上
用了数据库，就得加个判断输入的语句或函数，要是他输错了格式，回报错的

Answer 5

用dtpicker也可以,最后可以用format(datevalue,"yyyy-mm-dd")
之前也可以用isdate(datevalue)来判断是不是有效的日期!!

Answer 6

自已写一个Text_change过程就行了呀,在这里只要侦测用户输入的数据是否符合要求即可.

Answer 7

你可以写一个Text1_KeyPress过程啊

Answer 8

设置mask属性为 ####-##-##
或者直接用DTpicker

Answer 9

应该允许用户输入所有合法的日期型数据，可以在text1的lostfocus事件中格式化你要的格式：
private sub text1_lostfocus()
    if not isdate(text1.text) then
        msgbox "请输入日期型数据！",48,"提示"
        text1.setfocus
    else
        text1.text=format(text1.text,"yyyy-mm-dd")
    end if
end if

Answer 10

Leftie(左手) 同志的做法高，高就是高！

Answer 11

Leftie(左手)方法不好！应该放到另一个事件中去！text1_vis....。详细的不记得了，但这个事件的作用就是进行数据有效性控制的。