一个Edit，一个Button，在Edit中输入一个日期，如何判断是否合法？(80分)

zxin · 2002-08-04

一个Edit，一个Button，在Edit中输入一个日期，如何判断是否合法？
要求如下：
1：日期的格式必须是“1998-03-30”
2：充分考虑每个月的天数以及闰年情况，例如2月最多有29天，输入1998-02-30就为不合法

coolingxyz · 2002-08-04

Try
StrToData(Edit.text);
except
showmessage('error');
exit;
end;

laozhang · 2002-08-04

同意 coolinggxyz的方法！

zhouaiping · 2002-08-04

1.可以在edit中定义一下格式（‘ - - ’）
2.把edit中的字符取出来：str=edit.text[j]
3.用strtodata(str)判断

ildg · 2002-08-04

strToDateTime(Edit.text)发生异常就不合格了吧应该

哈利波特 · 2002-08-04

srttodata

zxin · 2002-08-04

[yellow]谁能帮我写出源代码，我的分统给他！[/yellow][

]

zhouaiping · 2002-08-04

都写了这么多，自己组织一下

完颜康 · 2002-08-04

begin
try
StrToDate(Edit1.Text);
except
showmessage('不是合法的日期格式');
exit;
end;
showmessage('是合法的日期');
end;

独步天下 · 2002-08-05

StrToDate(Edit1.Text)就很简单！

zxin · 2002-08-05

接受答案了.