delphi 数字转换成中文

最新推荐文章于 2024-07-02 15:27:12 发布

原创最新推荐文章于 2024-07-02 15:27:12 发布 · 1.8k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #数字 #中文

Delphi 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一种使用Delphi编程语言将当前日期从数字格式转换为中文格式的方法。通过解析日期的不同部分（年、月、日），并将其转换为中文表示形式。此过程涉及条件判断与字符串操作。

获取当前日期，日期为数字。将数字转换成中文。

function TForm1.GetCNDay():string;       //result是function默认的返回值变量
var
    str,strYear,strMonth,strDay,e,n,s : string;
    year,month,day,v_index,v_len,i : Integer;
begin
    e:='0123456789';
    n:='〇一二三四五六七八九';
    v_index:=1;
    Result:='';

    strYear:=formatDateTime('yyyy',Now());
    strMonth:= formatDateTime('mm',Now());
    strDay:= formatDateTime('dd',Now());
    year:=StrToInt(strYear);
    month:=StrToInt(strMonth);
    day:=StrToInt(strDay);

    if month<10 then
       strMonth:=IntToStr(month)
    else
    if month =10 then
        strMonth:='十'
    else
    if month>10 then
        strMonth:='十' + IntToStr(month-10);

    strMonth:=strMonth+'月';

    if day <10 then
        strDay:=inttostr(day)
    else
    if(day = 10) then
        strDay:='十'
    else
    if(day>10) and (day<20)then
        strDay:='十'+ inttostr(day-10)
    else
    if(day = 20)then
        strDay:='二十'
    else
    if(day>20) and (day < 30)then
        strDay:='二十'+ inttostr(day-20)
    else
    if(day =30)then
        strDay:='三十'
    else
    if(day=31)then
        strDay:='三十一';

    str:= strYear +'年'+ strMonth + strDay+'日';
    v_len:=Length(str);
    for i:=1 to v_len do
    begin
       s:=MidStr(str,i,1);
       if Pos(s,e)>0 then
          Result:=Result+MidStr(n,Pos(s,e),1)
       else
          Result:=Result+s;
    end;

end;