如何把一个长日期格式的字串转换为短日期格式（内容空）(100分)

L

LeonSu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #1

如题

 

A

Avenir

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #2

短串:=DateToStr(StrToDate(长串))
短串的格式可以通过设置 ShortDateFormat来决定

 

D

DragonPC_???

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #3

FormatDateTime('YYYY-MM-DD,hh-mm-ss',DATE);

 

L

LeonSu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #4

那如果我要把“2002年8月14日”这个字符串转换成 2002-8-14 的 日期格式，如何做。
用strtodate会报错

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #5

var s:string;
begin
s:='2002年8月14日';
s:=StringReplace(s,'年','-',[]);
s:=StringReplace(s,'月','-',[]);
s:=StringReplace(s,'日','',[])

//以上三句可以用一句嵌套函数解决:
//s:=StringReplace(StringReplace(StringReplace(s,'年','-',[]),'月','-',[]),'日','',[]);
showmessage(s);
end;

 

L

LeonSu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-14

• #6

接受答案了.