请教字符串怎么转化成日期？(50分)

Y

yangyi_allen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-10

• #1

字符串"20040601"
怎么转成datetime?
3x!

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-10

• #2

var
y, m, d: Word;
y:=StrToInt(Copy(s, 1, 4));
m:=StrToInt(Copy(s, 5, 2));
d:=StrToInt(Copy(s, 7, 2));
EncodeDate(y, m, d)

 

Z

zurich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-10

• #3

写错了
同意楼上
不好意思

 

Y

yangyi_allen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-10

• #4

老大阿
是C#阿

 

Z

zurich

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-10

• #5

var
date2:Tdate;
s:string;
begin
s:= '20040601';
date2:=strtodate(copy(s,1,4)+'-'+copy(s,5,2)+'-'+copy(s,7,2));
showmessage(datetostr(date2));

 

L

LeeChange

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-06-10

• #6

[]还有人上当嘛。