怎么将"1922-2-12''转换成"一九贰贰年二月十二日"

[ItOldHorse]

怎么将"1922-2-12''转换成"一九贰贰年二月十二日"

[lw549]

同意楼上。

[ysycrazy]

procedure TForm1.Button1Click(Sender: TObject);
var str:string;
begin
str:=FormatDateTime('yyyy年mm月dd日',strtodate('2003-11-5'));
str:=StringReplace(str,'1','壹',[rfReplaceAll]);
str:=StringReplace(str,'2','贰',[rfReplaceAll]);
str:=StringReplace(str,'3','叁',[rfReplaceAll]);
str:=StringReplace(str,'4','肆',[rfReplaceAll]);
str:=StringReplace(str,'5','伍',[rfReplaceAll]);
str:=StringReplace(str,'6','陆',[rfReplaceAll]);
str:=StringReplace(str,'7','柒',[rfReplaceAll]);
str:=StringReplace(str,'8','捌',[rfReplaceAll]);
str:=StringReplace(str,'9','玖',[rfReplaceAll]);
str:=StringReplace(str,'0','零',[rfReplaceAll]);
edit2.text:=str;
end;

[sunshine502108]

ding

[mousefather]

没那么简单吧，2003－11－12要变成十一月十二日，如果用上面的程序变成了一一月一二日了

[ssq_td]

自己写个函数很简单的

[aiirii]

mousefather(气死猫) :
說得沒錯, 是我失誤了!! 還要加些判斷!! 不知道是不是有些比較簡單的實現方式!!

[aiirii]

ysycrazy(风中狂) 的代碼, 估計
str:=FormatDateTime('yyyy年mm月dd日',strtodate('2003-11-5'));
執行就有問題了!!

[aiirii]

var s: string;
begin
S := FormatDateTime('yyyy年mm月d日', StrtoDate('1992/2/1'));
s := StringReplace(s, '1', '壹', [rfReplaceAll]);
s := StringReplace(s, '2', '貳', [rfReplaceAll]);
...
s := StringReplace(s, '0', '零', [rfReplaceAll]);
Showmessage(s);
end;