这样的日期怎么求？(50分)

比如当前的日期是2001-9-20
我要得到200109
只要某一部分，有什么简单的办法？

formatdatetime('yyyymm',now)

天﹐我怎么不早點看到。這可是最基礎的問題了。
記住返回的是一個字符串。[]

刚刚给你编一个程序
var
w_Year,w_Month,w_Day : word; //定义年、月、日
s_year,s_Month,s_Day : string; //定义年、月、日[字符串的形式]
s_date:string;
begin
//-----------0.1----------------
//先求出Word型的日期：年w_Year、月w_Month、日w_Day
//例如此时此刻求出系统的日期w_Year=2001、w_Month=1、w_Day=12
decodedate(date,w_Year,w_Month,w_Day);
//-----------0.2----------------
//求出年、月、日的字符串的形式--> s_year,s_Month,s_Day中
s_year := inttostr(w_Year);
s_Month := inttostr(w_Month);
s_Day := inttostr(w_Day);
if w_Month >= 10 then
s_date:= s_year +s_Month
else
s_date:= s_year +'0'+ s_Month;
//s_date就是你要的结果'200109'
end;

formatdatetime('yyyymm',now)
简单多了。

我个人认为用decodedate比较好。用它可以单独解出日期的某一部分（年、月、日）等
然后可以进行计算后再用encodedate组合成日期格式。

太简单了，delphi不是有formatdatetime函数7嘛，看来你是处学者呀：）

用Formatdatetime不行吗?

用formatdatetime也可以的。只是在需要对日期进行特殊计算的时候没decodedate方便而已
对这个问题来说结果是一样的。

接受答案了.