Question

日期型变量(VB)

我想设计一个程序，当单击“确定”时，判断TEXT1里输入的值是否是日期型（我先将TEXT1的TEXT值保存在一个变量里），如果是，则执行我的命令，如果不是，则弹出对话框提示格式错误。请问我应该怎样设计代码？

Answer 1

VB里有没有IsDate这样的函数？
如果没有可以自己弄一个。比如你想要用户输入XXXX-XX-XX这种格式的日期，那么就对用户输入的字符串进行格式检查，我写个大概：

函数接受一个字符型数据，返回bool型值
检查输入字符数是否是10个
检查第5和第8个字符是否是"-"
检查其他输入字符是否是数字
检查前四个字符的数值是否在你限制的年份内
检查月份和日期是否合格
根据是否全部符合要求返回值

取得字符串中指定位置的字符可以使用函数mid()，好像是，你可以在msdn或者F2对象浏览器中查找

Answer 2

你可以这样写：
用一个判断语句：
if isdate(text1.text)=true then
执行语句1
else
执行语句2