如何判断输入的内容是否是日期型的？

Question

如何判断输入的内容是否是日期型的？

Answer 1

try
 strtodate();
exceptend;

Answer 2

function IsData(ADate: TDate): Boolean;
begin
  try
    StrToDate(ADate);
    Result := True;
  except
    Result := False;
  end;
end;

Answer 3

try
 strtodate();
except   showmessage('数据类型不匹配');
end;

Answer 4

try
  StrToDate(txtDate.Text);
except
  begin
    ShowMessage(输入日期错误,请重新输入);
    txtDate.Text='';
  end;
end;

Answer 5

try
  StrToDate(txtDate.Text);
except
    ShowMessage(日期格式错误,请重新输入);
    Abort;
end;

Answer 6

用 IsValidDateTime IsValidDate 可能更好!

Answer 7

用try...except...end;好点,如果是日期的话你放在try里运行,不是日期的话就放出错信息在except里

Answer 8

各位老大，用StrToDateTimeDef这个函数最好，它是专门用来判断是否是日期的函数！