📄 howto_judge_date.htm
字号:
<html><head><title>如何判断日期格式是否正确</title><meta http-equiv=Content-Type content=text/html; charset=gb2312><meta name=GENERATOR content=Microsoft FrontPage 3.0><meta name=Microsoft Border content=none></head><body style=font-family: 宋体, serif; font-size: 9pt><center><b><span style=font-family: 宋体, serif; font-size: 12pt>如何判断用户输入的日期格式是否正确</span></b></center><center><span style=font-family: 宋体, serif; font-size: 9pt>西安 <a href=mailto:delphifan@990.net>梁 明</a></span></center><hr><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt>有时候，我们需要判断用户输入的日期格式是否正确。<br> 一般的处理是给输入日期的组件添加“格式掩码”，但是给用户的界面不太友好，如果自己根据日期的格式写代码来判断有比较麻烦（要判断好多情况），那有没有一种写代码少又不影响界面的好办法呢？<br> 在这里我给大家推荐下面这种办法：利用函数StrToDate()转换自身的错误捕捉来“帮助”我们干活！ </span></li> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>下面是源代码：<br> </b>procedure TForm1.DateEditExit(Sender: TObject);<br> begin<br> //利用函数转换的错误捕捉来处理...<br> if DateEdit1.Text<>'' then<br> begin<br> try<br> StrToDate(DateEdit1.Text);//转换<br> except<br> DateEdit1.SetFocus;<br> MessageBeep(0);<br> raise Exception.Create('"'+DateEdit1.Text+'" 不是正确的日期格式!');<br> end{try};<br> DateEdit1.Text:=DateToStr(StrToDate(DateEdit1.Text));<br> end{if};<br> end;<br> </span></li></ul><ul> <li><span style=font-family: 宋体, serif; font-size: 9pt><b>窗体As text代码<br> <font color=#008080>(无内容)</font></b></span></li></ul><ul> <li> </li> <li><span style=font-family: 宋体, serif; font-size: 9pt>版主：梁明<br> 日期：1999-03-12-02:32<br> E-mail：<a href=mailto:delphifan@990.net>delphifan@990.net</a></span></li></ul><hr></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -