文本框里怎么判断日期的格式？求高手指点！
在文本框里输入日期时一定要按照“yyyy-m-d”的格式？如果不是这种格式会提示“请格式不对。”！顺便再问一下，怎么判断文本框里输入的是数字？

------解决方案--------------------
--文本框中设置“输入掩码”属性为：

0000-99-99;0;_


可控制的格式。

在更新前事件中，用cdate()将输入的字符串转换，如果不出错，表示符合日期要求，否则，

设置：

msgbox "不符合日期要求，重新输入！ "
Cancel = True
exit sub


或者用isdate()判断输入的数据是否符合日期要求。
------解决方案--------------------
用isdate() OR IsNumeric() 函数