文本框里怎么判断日期的格式？求高手指点！
在文本框里输入日期时一定要按照“yyyy-m-d”的格式？如果不是这种格式会提示“请格式不对。”！顺便再问一下，怎么判断文本框里输入的是数字？
[解决办法]
--文本框中设置“输入掩码”属性为：
0000-99-99;0;_
可控制的格式。
在更新前事件中，用cdate()将输入的字符串转换，如果不出错，表示符合日期要求，否则，
设置：
msgbox "不符合日期要求，重新输入！ "
Cancel = True
exit sub
或者用isdate()判断输入的数据是否符合日期要求。
[解决办法]
用isdate() OR IsNumeric() 函数
