字符串转日期转换

[zx005]

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

[Oraclers]

StrToDate(left('19841212',4)+'-'+Copy('19841212',5,2)+'-'+right(19841212,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;

[zx005]

原来不能直接转换啊！。。。。。。

[Oraclers]

重写下，上面用错了。
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;