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;
 

相关阅读 >>

Delphi清除ie临时文件,历史记录

Delphi判断exe文件是否正在运行的函数

Delphi多线程tthread详解

解决Delphi程序在非中文系统下乱码

Delphi xe6调用android手机标准功能

Delphi在网格cxgrid的左上角放置一个按钮

Delphi 判断是否出现滚动条

Delphi 打开资源管理器并定位到指定目录下的文件

Delphi xe6 switch元件简繁问题

Delphi关于邮箱收信的问题

更多相关阅读请进入《Delphi》频道 >>