數字轉英文

發文回覆瀏覽次數：1501

推到 Plurk!

推到 Facebook!

it1506
初階會員

發表：32
回覆：89
積分：49
註冊：2011-02-16

發送簡訊給我

#1 引用回覆回覆

發表時間：2011-03-11 13:15:39

IP:220.132.xxx.xxx 未訂閱

[code delphi]

function TForm1.amountEng(n: Currency): String;

const

highNumber :array[0..3] of String =(' HUNDRED',' THOUSAND',' MILLION',' BILLION');

engNumber :array[0..100] of string=(

,' ONE'

,' THREE'

,' FIVE'

,' SEVEN'

,' NINE'

,' ELEVEN'

,' THIRTEEN'

,' FIFTEEN'

,' SEVENTEEN'

,' NINETEEN'

,' TWENTY-ONE'

,' TWENTY-THREE'

,' TWENTY-FIVE'

,' TWENTY-SEVEN'

,' TWENTY-NINE'

,' THIRTY-ONE'

,' THIRTY-THREE'

,' THIRTY-FIVE'

,' THIRTY-SEVEN'

,' THIRTY-NINE'

,' FORTY-ONE'

,' FORTY-THREE'

,' FORTY-FIVE'

,' FORTY-SEVEN'

,' FORTY-NINE'

,' FIFTY-ONE'

,' FIFTY-THREE'

,' FIFTY-FIVE'

,' FIFTY-SEVEN'

,' FIFTY-NINE'

,' SIXTY-ONE'

,' SIXTY-THREE'

,' SIXTY-FIVE'

,' SIXTY-SEVEN'

,' SIXTY-NINE'

,' SEVENTY-ONE'

,' SEVENTY-THREE'

,' SEVENTY-FIVE'

,' SEVENTY-SEVEN'

,' EVENTY-NINE'

,' EIGHTY-ONE'

,' EIGHTY-THREE'

,' EIGHTY-FIVE'

,' EIGHTY-SEVEN'

,' EIGHTY-NINE'

,' NINETY-ONE'

,' NINETY-THREE'

,' NINETY-FIVE'

,' NINETY-SEVEN'

,' NINETY-NINE'

g:=trunc(y/100000);

y:=y-g*100000;

eng:=eng engNumber[g] highNumber[1];

end;

if(y>999)then begin

g:=trunc(y/1000);

y:=y-g*1000;

end;

if(y>=100)then begin

eng:=eng engNumber[trunc(y/100)] highNumber[0];

end;

if(y>0)and(y<100)then begin

end;

if(z>0)then begin

end;

result:=eng;

end;

[/code]

之前發一篇不知為什麼 ktop的server給了一個無效的連結

系統時間：2024-06-29 22:48:51

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！