请问如何将一个字符串类型的日期转化为data型 的

Question

我有一个字符串，如'19991231',请问下如何把它转化为日期型的？

Answer 1

formate('19991231',yy-mm-dd)；
手上没有delphi
好象是这个样子吧
按f1 ，帮助里面有例子的 呵呵~~~

Answer 2

formatedatetime('yyyymmdd','19991231')

Answer 3

FormatDateTime(YYYY-MM-DD,如'19991231');

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  d: TDateTime;
begin
  s := '19991231';
  if Length(s)<>8 then exit; //格式位YYYYMMDD,如果不为8位则退出
  s := Copy(s, 1, 4) + '-' + Copy(s, 5, 2) + '-' + Copy(s, 7, 2);
  try
    d := StrToDateTime(s);
  finally
  end;
  ShowMessage(DateToStr(d));
end;