如何将数字字符串转换为日期格式?

Question

如何将数字字符串转换为日期格式?

Answer 1

strtodate(str:string)
str要像2005-06-06才行的，你要先转化数字传为加了'-'之后的格式

Answer 2

var 
  data:string;
begin
  data:='2004-06-06';
  strtodate(data);
end;

Answer 3

//用FormatDateTime function
procedure TForm1.btn1Click(Sender: TObject);
var
  S:string;
begin
  S:=formatdatetime('yyyy-mm-dd',date());
  ShowMessage(S);
end;end.

Answer 4

另一种方便的方法在Delphi中实现类似中的控件数组。 
你可以通过设置一组相应控件的TAG属性来实现这一功能。首先在窗体中放置3个BUTTON控件，然后分别设置这三个控件的TAG属性为1、2、3。接下来双击任意一个按钮，
在其代码部分输入如下代码：
procedureTForm1．Button1Click（Sender：TObject）；
varcap：string；
begin
caseTButton（sender）．Tagof
1：ShowMessage（′1stButtonPressed′）；
2：ShowMessage（′2ndButtonPressed′）；
3：ShowMessage（′3rdButtonPressed′）；
end；
end；
最后在其他两个按钮的ONCLICK事件中选择已经编好的代码。这样一来就可以实现以上功能了。

Answer 5

楼猪
   如果你输入的数字是这样20050607的话你可以用COPY函数来搞定copy 3次之后得到的值中间加上-这样就搞定了 但是一定要足额和组合出来的数据是字符串型的