delphi 中文大写日期转换函数


//中文大写日期  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;

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678