日期问题.

Question

如何将"2003年6月1日"得到"20030601"呢?不是手动输入哦,是怎样通过函数获得.

Answer 1

function DateConvert(s:string):string;
var i:integer;tmp:string;
begin
 s:='';
 for i:=1 to length(s) do
   if Pos(s[i],'0123456789')>0 then tmp:=tmp+s[i];
 Result:=s;end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=FormatDateTime('yyyymmdd',VarToDateTime('2003年6月1日'));end;

Answer 3

function DateConvert(s:string):string;
var i:integer;tmp:string;
begin
 s:='';
 for i:=1 to length(s) do
   if Pos(s[i],'0123456789')>0 then tmp:=tmp+s[i];
 Result:=s;end;
Eastunfail(恶鱼杀手) 有一个疏忽，应该是Result:=tmp;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text:=FormatDateTime('yyyymmdd',VarToDateTime('2003年6月1日'));end;

Answer 5

Edit1.Text:=FormatDateTime('yyyymmdd',VarToDateTime('2003年6月1日'));

Answer 6

Edit1.Text:=FormatDateTime('yyyymmdd',VarToDateTime(date));最好.