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使用TryStrToDate判斷字串是否為日期格式