日期转换成字符串的问题！ ( 积分: 50 )

如何将日期转换成字符串！如将2007-2-9转换成20070209。

formatdatetime('yyyymmdd',now);

我有一个将日期转换成标准字符型的函数，需要可以提供

自定义一个函数，
function GetDateToStr1(const TmpDateTime:TDateTime):AnsiString;
var
AYear, AMonth, ADay: Word;
a:AnsiString;
begin
DecodeDate(TmpDateTime,AYear, AMonth, ADay);
a:=IntToStr(Ayear);
if AMonth<10 then
a:=a+'0'+IntToStr(AMonth)
else
a:=a+IntToStr(AMonth);

if ADay<10 then
a:=a+'0'+IntToStr(ADay)
else
a:=a+IntToStr(ADay);
Result:=a;
end;
应该可以解决你的问题！

xiexie