知识大全将日期转化为汉语的形式

Posted 2022-07-21 知

篇首语：别裁伪体亲风雅，转益多师是汝师。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全将日期转化为汉语的形式相关的知识，希望对你有一定的参考价值。

　　在DELPHI中没有直接将日期转化为汉语的形式用起来很不方便如年月日在一些特殊场合需要转化为汉语二○○一年五月二十三日　　在这里有一个函数可以直接进行转化在这里和大家共享原代码如下 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[ ] of string=( 一二三四五六七八九十十一十二十三十四十五十六十七十八十九二十二十一二十二二十三二十四二十五二十六二十七二十八二十九三十三十一 ); //日期的汉语表示 var dd:integer; begin dd:=strtoint(DDay); result:=cdday[dd]; end;

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

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

cha138/Article/program/Delphi/201311/25070

知识大全 将日期转化为汉语的形式

知识大全将日期转化为汉语的形式