| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
BETTY
註冊時間: 2004-07-28
文章: 8
第 1 樓
|
 發表於: 星期三 七月 28, 2004 5:25 pm 文章主題: 要如何把報表中的數字轉成大寫 |
 |
|
剛學沒多久，前輩們救救我吧!!
要把"5940"轉成"伍玖肆零"，要如何改啊，我用了ck_cnum()這個，可是結果變成了"伍仟玖佰肆拾"，零都不會出現，還會有仟佰拾的，是不是我用錯了 |
|
| 回頂端 |
|
 |
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 2 樓
|
| 發表於: 星期三 七月 28, 2004 6:16 pm 文章主題: |
|
|
* 先請問一下 ck_cnum( ) 原始程式是什麼
func tranum
lpara mnu
local mret
mret = ltrim(str(mnu))
mret = strt( mret , '1', '壹' )
mret = strt( mret , '2', '貳' )
mret = strt( mret , '3', '參' )
mret = strt( mret , '4', '肆' )
mret = strt( mret , '5', '伍' )
mret = strt( mret , '6', '陸' )
mret = strt( mret , '7', '柒' )
mret = strt( mret , '8', '捌' )
mret = strt( mret , '9', '玖' )
mret = strt( mret , '0', '零' )
return mret
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
BIN
註冊時間: 2004-07-22
文章: 94
來自: Tainan, Taiwan
第 3 樓
|
| 發表於: 星期三 七月 28, 2004 9:23 pm 文章主題: |
|
|
以下這是我個人的寫法...^^a
FUNC tranum
PARA mnu
mnum=ALLTRIM(STR(mnu))
mret=""
FOR ii=1 TO LEN(mnum)
jj=VAL(SUBSTR(mnum,ii,1))
mret=mret+SUBSTR("零壹貳參肆伍陸柒捌玖", jj*2+1, 2)
ENDFOR
RETURN mret |
|
| 回頂端 |
|
|
lelhappy
註冊時間: 2004-06-04
文章: 20
第 4 樓
|
| 發表於: 星期四 七月 29, 2004 8:36 am 文章主題: |
|
|
嗯, 沒錯, 就是這樣.
 |
|
| 回頂端 |
|
|
BETTY
註冊時間: 2004-07-28
文章: 8
第 5 樓
|
| 發表於: 星期五 七月 30, 2004 1:51 pm 文章主題: |
|
|
| ck_cnum(ta)=>FoxPro 6.0這是在報表設計工具內用的，因為要寫一個電子發票套表的報表，內容有數字及需將含稅金額轉成大寫金額，而ck_cnum(ta)會將轉成大寫，但會忽略個數是零，如果我要指定長度7位，未滿7位前導數為零，應該要怎麼做呀 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 6 樓
|
| 發表於: 星期五 七月 30, 2004 2:26 pm 文章主題: |
|
|
就將這一行 mret = ltrim(str(mnu))
改成 mret = tran( mnu , '@L 9999999')
_________________
利用>>搜尋<<的功能會比問的還要快得到答案. |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4249
來自: Taipei,Taiwan
第 7 樓
|
| 發表於: 星期五 七月 30, 2004 2:27 pm 文章主題: |
|
|
人必先自救然後天救之
如果是你非得自己做,
你打算怎麼做?
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
BIN
註冊時間: 2004-07-22
文章: 94
來自: Tainan, Taiwan
第 8 樓
|
| 發表於: 星期五 七月 30, 2004 4:25 pm 文章主題: |
|
|
還是先post出您的程式碼吧...
不然也不知道那邊出錯... |
|
| 回頂端 |
|
|
catjoke
註冊時間: 2003-06-16
文章: 175
來自: 香港
第 9 樓
|
| 發表於: 星期一 八月 02, 2004 9:50 am 文章主題: |
|
|
| BIN 寫到: | 以下這是我個人的寫法...^^a
FUNC tranum
PARA mnu
mnum=ALLTRIM(STR(mnu))
mret=""
FOR ii=1 TO LEN(mnum)
jj=VAL(SUBSTR(mnum,ii,1))
mret=mret+SUBSTR("零壹貳參肆伍陸柒捌玖", jj*2+1, 2)
ENDFOR
RETURN mret |
若不是 CHRTRANC() 常常引至 c0000005 Error,
你的程式用不上!!
? CHRTRANC("5940", "0123456789", "零壹貳參肆伍陸柒捌玖")
_________________
喵喎~ 貓當然是 "茅" 的嘛! ^0^; |
|
| 回頂端 |
|
|
BIN
註冊時間: 2004-07-22
文章: 94
來自: Tainan, Taiwan
第 10 樓
|
| 發表於: 星期一 八月 02, 2004 5:18 pm 文章主題: |
|
|
| catjoke 寫到: | 若不是 CHRTRANC() 常常引至 c0000005 Error,
你的程式用不上!!
? CHRTRANC("5940", "0123456789", "零壹貳參肆伍陸柒捌玖") |
抱歉!! 太習慣DOS時代的程式寫法了...
多謝指教!! 又學到了一招!
 |
|
| 回頂端 |
|
|
catjoke
註冊時間: 2003-06-16
文章: 175
來自: 香港
第 11 樓
|
| 發表於: 星期二 八月 03, 2004 10:10 am 文章主題: |
|
|
不是啊! 我說了: CHRTRANC() 雖然很方便...
但它常常引至 C0000005 嚴重錯誤, 忘記這個 函數 反而對系統安全些...
所以妳的自定 function 比較好.
_________________
喵喎~ 貓當然是 "茅" 的嘛! ^0^; |
|
| 回頂端 |
|
|
BIN
註冊時間: 2004-07-22
文章: 94
來自: Tainan, Taiwan
第 12 樓
|
| 發表於: 星期二 八月 03, 2004 2:43 pm 文章主題: |
|
|
| catjoke 寫到: | 不是啊! 我說了: CHRTRANC() 雖然很方便...
但它常常引至 C0000005 嚴重錯誤, 忘記這個 函數 反而對系統安全些...
所以妳的自定 function 比較好. |
原來VFP還是有些函數對中文不太相容啊...
個人還是想到一個問題,
像以前BIG5中文碼是以兩個ASCII碼來判斷的(LEN為2),
但以後的WINDOWS系統中文字,
好像是要改成UNICODE的方式判斷(LEN為1 ??)
上面個人所寫的方式,不知道到時還能不能用... |
|
| 回頂端 |
|
|
BETTY
註冊時間: 2004-07-28
文章: 8
第 13 樓
|
| 發表於: 星期二 八月 03, 2004 4:58 pm 文章主題: |
|
|
CHRTRANC(STR(TA), "0123456789", "零壹貳參肆伍陸柒捌玖")
CHRTRANC() 雖然有些問題不過他目前可以解決我的問題唷，謝拉  |
|
| 回頂端 |
|
|
liuganggang
註冊時間: 2004-07-31
文章: 6
第 14 樓
|
| 發表於: 星期日 八月 08, 2004 11:16 pm 文章主題: |
|
|
用這個CHRTRANC() 真是簡練，臺灣的情況我不知道，但在我們大陸將數字轉爲大寫一般是填在空裏的，如 万 仟 佰 拾 等，那打印時位置可怎麽調整呢？
_________________
淡泊以明志，寧靜以致遠！ |
|
| 回頂端 |
|
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
