數字轉英文 |
|
it1506
初階會員 發表:33 回覆:89 積分:49 註冊:2011-02-16 發送簡訊給我 |
[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給了一個無效的連結 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |