一个简单的问题

Question

请问如何将2002-3-1转换为20030301，谢谢

Answer 1

formatdatetime();但如果把2002变成2003就不知道怎么搞了！

Answer 2

var yy,mm,dd: dword;
  
begin
  decodedatetime(yy,mm,dd,date());
  
end;//其中yy，mm，dd分别得到的就是你想要的东东；

Answer 3

sorry错了；函数原型是这样的；首部 procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); 功能 分解日期为年、月、日
例子
///////Begin DecodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
Year, Month, Day: Word;
begin
DecodeDate(Date, Year, Month, Day);
SpinEdit1.Value := Year;
SpinEdit2.Value := Month;
SpinEdit3.Value := Day;
end;
///////End DecodeDate

Answer 4

edit1.Text:=formatdatetime('yyyymmdd',datetimepicker1.Date);

Answer 5

edit1.Text:=formatdatetime('yyyymmdd',datetimepicker1.Date);

Answer 6

楼上的已经说的比较好了，先decodedatetime，分解出年，月，日，然后再encodedatetime就可以了，至于你想把2002变为2003，那就分解出来再在年上加一就ok了！

Answer 7

Edit1.Text:=FormatDateTime('yyyymmdd',StrToDateTime('2003-3-1'));
 Edit1.Text:=FormatDateTime('yyyymmdd',StrToDateTime('2003-3-1'));

Answer 8

edit1.Text:=formatdatetime('yyyymmdd',datetimepicker1.Date);