字符串转日期转换

Question

请问字符串'19841212'如何转换为1984-12-12这样的日期型！

Answer 1

StrToDate(left('19841212',4)+'-'+Copy('19841212',5,2)+'-'+right(19841212,2));

Answer 2

加上“-”分隔不就行了，Delphi（D7）示例var
  s: string;
begin
  s := '19841212';
  MonthCalendar1.Date := StrToDate(copy(s,1,4) + '-' + copy(s,5,2) + '-' + copy(s,7,2)) ;
end;

Answer 3

重写下，上面用错了。
procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  d:TDate;
begin
  s:='19841212';
  s:=Copy(s,1,4)+'-'+Copy(s,5,2)+'-'+Copy(s,7,2);
  d:=StrToDate(s);
end;