日期:2014-05-16  浏览次数:21134 次

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

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

0000-99-99;0;_


可控制的格式。

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

设置:

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


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