Delphi使用TryStrToDate判断字符串是否为日期格式

var
minDate, maxDate: TDateTime;

dateseparator := ‘-’; // 日期分隔符
shortdateformat := ‘yy-mm-dd’; // 短日期格式
longdateformat := ‘yyyy-mm-dd’; // 长日期格式
application.UpdateFormatSettings := false;
if not TryStrToDate(edtDate1.Text, minDate) then
begin
Showmessage(‘日期1不是日期字符串,或其格式不是“yyyy-mm-dd”!’);
exit;
end;

if not TryStrToDate(edtDate2.Text, maxDate) then
begin
Showmessage(‘日期2不是日期字符串,或其格式不是“yyyy-mm-dd”!’);
exit;
end;

上一篇:DELPHI第三方控件及组件大全(安装方法与使用)


下一篇:delphi压缩后使用http协议base64上传下载6G超大文件