如何判断输入的日期时间数据是否正确? ( 积分: 50 )

  • 主题发起人 主题发起人 jinghj
  • 开始时间 开始时间
J

jinghj

Unregistered / Unconfirmed
GUEST, unregistred user!
一个编辑框里需要输入日期时间数据,也可以不输,如果格式不对,系统会弹出提示框,如何能不显示这个系统的提示框而出现自己的对话框呢
 
一个编辑框里需要输入日期时间数据,也可以不输,如果格式不对,系统会弹出提示框,如何能不显示这个系统的提示框而出现自己的对话框呢
 
使用DateTimePicker或MaskEdit
 
try
......//正确的日期表达式
except
MessageBox(0,'日期格式不正确!','信息提示',48)
 
if Trim(edit1.text)<>'' then
try
strtodatetime(Edit1.text)
except
showmessage('日期输入格式不正确,请按YYYY-MM-DD格式输入') ;
end ;
 
用异常处理
try

except
end;
 
TryStrToDate()
 
if Trim(edit1.text)<>'' then
try
strtodatetime(Edit1.text)
except
showmessage('日期输入格式不正确,请按YYYY-MM-DD格式输入') ;
end

我用了上面的语句还是会出现系统的提示啊
 
在编程时运行还会提示,直接运行生成的程序的EXE文件系统就不会再提示了.呵呵
 
try
strtodatetime(Edit1.text)
except
showmessage('日期输入格式不正确!') ;
end


你用外部调试运行或者编译成Exe运行就不会出现系统提示,而是程序中的提示了
 
直接转也是可以的,不过在编译出错比较讨厌,不过别的办法就是对字符串一个一个进行判断,OK
 
后退
顶部