用户输入年份和月份的字符串,格式为 YYYYMM ,如 200506如果判断用户输入的字符串是否合法呢?
解决方案 »
- 批量html转text的问题
- 新手问有关installshield的使用问题
- USB转串口(使用spcomm)问题
- 我想请教一下 treeview 的使用操作
- 如何让DBGRID和报表内的数据值显示整数的小数点后两位.00,
- 我使用Delphi6的TDataBase控件连接Oracle数据库...还望高手指教。
- 我想做一个在鼠标,键盘20分钟以后没有动后提示的程序!那位能否给我源代码!(wait)
- 大家帮忙看一下,此报表为何数据显示不出来?
- Delphi 注册码
- adoquery执行插入语句,在64位系统的电脑里执行不报错,32位系统执行报“将截断字符串或二进制数据”
- 有没有关于地址薄相关的组件?
- 邮件程序,急用,up有分。
將你的字串組成日期格式后再轉
StrTodate('200506'+'01');
except
on e: Exception do
begin
showmessage(‘请输入有效的日期’);
exit;
end;
end;
//判断指定字符串是否为日期格式的函数
function isDate(Const aDateStr:String):Boolean;
begin
result:=True;
try
StrToDate(aDateStr);//尝试将字符串转换为日期
except
result:=False;//如果出错,则返回False;
end;
end;