判断字符串是否是日期格式最简单的方法？

Question

有没有这个函数呀？
判断一个字符串是不是日期格式的。

Answer 1

你可以用strtodate,如果出现异常,就说明不是日期格式,如果正常,就是日期格式

Answer 2

function StrIsDateTime(S: String): Boolean;
begin
  try
    StrToDateTime(S);
    Result := True;
  except
    Result := False;
  end;
end;

Answer 3

var ReDate:TDateTime;  try
    ReDate:=strToDate(strDate);
  except
    MessageDlg('您输入的时间格式无效!',mtError,[mbOK],0);
    Abort;
  end;

Answer 4

function StrIsDateTime(S: String): Boolean;
begin
  try
    StrToDateTime(S);
    Result := True;
  except
    Result := False;
  end;
end;

Answer 5

不会吧，这样判断，多少可能啊。
用strtodate,如果出现异常,就说明不是日期格式,如果正常,就是日期格式。或者你起先也可选择TDatetimepicker啊。
也可以用几个的spinedit组合，
然后TDate := DecodeDate();/TTime := DecodeTime();
总之你要怎么做就怎么做。

Answer 6

哪位大哥有原码给小弟一份。
谢谢：[email protected]

Answer 7

try
  StrToDate(edit1.text);
except
  ShowMessage('错误日期格式!');
end;

Answer 8

着就是源码：
function StrIsDateTime(S: String): Boolean;
begin
  try
    StrToDateTime(S);
    Result := True;
  except
    Result := False;
  end;
end;

Answer 9

function Ifdate(S: String): Boolean;
var Redate:Tdatetime;
begin
  try
    Redate:=StrToDateTime(S);
    Result := True;
  except
    Result := False;
    raise;
    exit;
  end;
end;