在DELPHI中没有直接将日期转化为汉语的形式，用起来很不方便，如：“2001年5月23日”在一些特殊场合需要转化为汉语，“二○○一年五月二十三日”
    在这里有一个函数可以直接进行转化，在这里和大家共享，原代码如下：
  
procedure datechange(var Dyear, Dmonth,Dday:string;
     const ADate:Tdatetime);  //转化日期
function  DCDate(ADate:TDateTime):TDDate;//将时间转化为汉字形式
function  DCmonth(DMonth:string):string; //将月转化为汉字形式
function  DCDay(DDay:string):string;     //将日转化为汉字形式
function  DCYear(Dyear:string):string;   //将年转化为汉字形式

implementation
//以下是实现部分。

procedure datechange(var Dyear, Dmonth,Dday:string;
   const ADate:Tdatetime);
begin
  Dyear:=formatdatetime('yyyy',Adate);
  Dmonth:=formatdatetime('mm',Adate);
  Dday:=formatdatetime('dd',Adate);        
end;

function TDWF.DCDate(ADate: TDateTime):TDDate;
var  kk:TDdate;
     sY,sM,sD:string;
begin
  datechange(sy,sm,sd,Adate);
  kk.year :=dcyear(sy);  
  kk.month :=DCmonth(sm);     
  kk.day:=DCday(sd);
  result:=kk;
end;

function TDWF.DCDay(DDay: string): string;
const  CDDay:array[1..31] of string=(
        '一','二','三','四','五','六','七','八','九','十','十一',
          '十二','十三','十四','十五','十六','十七','十八','十九',
        '二十','二十一','二十二','二十三','二十四','二十五','二十六',
           '二十七','二十八','二十九','三十','三十一'); //日期的汉语表示
var dd:integer;
begin
dd:=strtoint(DDay);   
result:=cdday[dd];
end;

function TDWF.DCmonth(DMonth: string): string;
const   CDmonth:array[1..12] of string=(
        '一','二','三','四','五','六','七','八','九','十',
             '十一','十二');                            //月份的汉语表示
var dm:integer;
begin
dm:=strtoint(DMonth);   
result:=cDmonth[dm];
end;

function TDWF.DCYear(Dyear: string): string;
const  CDdigit:array[0..9] of string=(
       '○','一','二','三','四','五','六','七','八','九'); //数字的汉字表示
var     dh,dg,i:integer;   
         sg,ss,sb,sq:string;
         Dtmp:string[4];
begin
  dh:=length(Dyear);
  sg:='';ss:='';sb:='';sq:='';
  for i:=1 to dh do      //i:=0 及 i:=dh+1 时,为开始标志为(#0);
  begin
    dtmp:=Dyear[i];
    dg:=strtoint(dtmp);
    case i of
      1:  sg:=cddigit[dg];
      2:  ss:=cddigit[dg];
      3:  sb:=cddigit[dg];
      4:  sq:=cddigit[dg];
    end;
  end;
  result :=sg+ss+sb+sq;
end;

当然如果能将其嵌套在控件内的话将会更好，如果大家有更好的方法的别忘了通知我。