验证实际日期

Question

是否有一些函数能够以格式aaaa/mm/gg(ccyy/mm/dd)验证日期,True如果有效False则返回？我的意思是关于真正有效的日期,不仅仅是语法级别.

Answer 1

是'aaaa'年和'gg'日？

var
  MyString: string;
  MyDate: TDateTime;
  settings: TFormatSettings;
begin
  settings.ShortDateFormat := 'yyyy/mm/dd';
  settings.DateSeparator := '/';
  MyString := '2011/15/15';
  if TryStrToDateTime(MyString, MyDate, settings) then
    Label1.Caption := 'correct date'
  else
    Label1.Caption := 'incorrect';
end;