RSS订阅 | 匿名投稿
您的位置:网站首页 > 时间 > 正文

delphi 中文大写日期转换函数

作者:admin 来源: 日期:2018/1/1 22:25:24 人气: 标签:

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

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料