本文整理自网络，侵删。
//中文大写日期 zzh 20171109
function ChineseDate(ADate: TDateTime): string;
const CNC = '?一二三四五六七八九';
function numtoUpper(Anum: Integer): String;
var
i, n: Integer;
numstr: string;
begin
Result := '';
numstr := IntToStr(Anum);
for i := 1 to Length(numstr) do
begin
n := StrToInt(numstr[i]);
Result := Result+Copy(CNC,n*2+1,2);
end;
end;
function monthtoUpper(Amonth: Integer): string;
begin
if (Amonth<10) then
Result := numtoUpper(Amonth)
else
if (Amonth=10) then Result := '十'
else
Result := '十'+numtoUpper(Amonth-10);
end;
function daytoupper(ADay: integer): string;
var
dstr: string;
begin
if (Aday<20) then
Result := monthtoUpper(ADay)
else
begin
dstr := IntToStr(ADay);
if (dstr[2] = '0') then
Result := numtoUpper(StrToInt(dstr[1]))+'十'
else
Result := numtoUpper(StrToInt(dstr[1]))+'十'
+numtoUpper(StrToInt(dstr[2]));
end;
end;
var
CY,CM,CD: Integer;
begin
CY := StrToInt(FormatDateTime('YYYY',ADate));
CM := StrToInt(FormatDateTime('M',ADate));
CD := StrToInt(FormatDateTime('D',ADate));
Result := numtoUpper(CY)+'年'+monthtoUpper(CM)+'月'+daytoUpper(CD)+'日';
end;
相关阅读 >>
Delphi 实现类似windows的查找功能-遍历整个硬盘目录
Delphi xe8 中tidtcpclient的writeln编码变化
更多相关阅读请进入《Delphi》频道 >>
