求判断日期的合法性函数？！ 在线等！

Question

rt

Answer 1

function IsDate(ADate: string): Boolean;
begin
  try
    VarToDateTime(ADate);
    Result := True;
  except
    Result := False;
  end;
end;

Answer 2

大哥，不好使呀！
if IsDate('asda')=True then
这一句读通不过！

Answer 3

楼主大哥啊，1、IsDate()是无天给你写的一个自定义函数，你加在你工程的单元里了吗？2、如果加了，那么，请编译后，再运行exe试一下。注意，是编译后，在delphi环境外运行。

Answer 4

要这样用
if IsDate('asda' then在IDE里运行可能会出现异常,这是正常现象,在EXE中就没事了.
如果不想在IDE中出现异常，Tools->Debug Optins 然后在language exceptions页中把下面Stop On delphi exceptions前的勾去掉就可以了。

Answer 5

要这样用
if IsDate('asda') then