1樓：匿名使用者
vb版本:
private sub imgbtn_click()
on error goto errorhandle:
dim i as integer
dim unchnum as currency
dim txtstri as string
dim txtstrf as string
dim lenstr as integer
dim curstr as string
dim resultstr as string
dim arr_unit(1 to 12) as string
dim arr_unit_f(1 to 2) as string
arr_unit(1) = "圓"
arr_unit(2) = "拾"
arr_unit(3) = "佰"
arr_unit(4) = "仟"
arr_unit(5) = "萬"
arr_unit(6) = "拾"
arr_unit(7) = "佰"
arr_unit(8) = "仟"
arr_unit(9) = "億"
arr_unit(10) = "拾"
arr_unit(11) = "佰"
arr_unit(12) = "仟"
arr_unit_f(1) = "角"
arr_unit_f(2) = "分"
text1.text = cstr(ccur(trim(text1.text)))
text1.text = format(text1.text, "###########.##")
'整數部分
txtstri = left(text1.text, instr(1, text1.text, ".") - 1)
lenstr = len(txtstri)
for i = lenstr to 1 step -1
select case mid(txtstri, i, 1)
case 1
curstr = "壹"
case 2
curstr = "貳"
case 3
curstr = "叄"
case 4
curstr = "肆"
case 5
curstr = "伍"
case 6
curstr = "陸"
case 7
curstr = "柒"
case 8
curstr = "捌"
case 9
curstr = "玖"
case 0
curstr = "零"
end select
resultstr = curstr & arr_unit(lenstr - i + 1) & resultstr
next
'小數部分
txtstrf = right(text1.text, len(text1.text) - instr(1, text1.text, "."))
for i = 1 to 2
curstr = "零"
select case mid(txtstrf, i, 1)
case 1
curstr = "壹"
case 2
curstr = "貳"
case 3
curstr = "叄"
case 4
curstr = "肆"
case 5
curstr = "伍"
case 6
curstr = "陸"
case 7
curstr = "柒"
case 8
curstr = "捌"
case 9
curstr = "玖"
case 0
curstr = "零"
end select
resultstr = resultstr & curstr & arr_unit_f(i)
next
text2.text = resultstr
'介面處理
clipboard.settext resultstr
text2.setfocus
text2.sellength = len(text2.text)
exit sub
errorhandle:
showerrorint = 0
timer1.enabled = true
end sub
每天都在使用這個程式,未曾出錯過````僅供參考, 你自己適當修改一下``
2樓：土風土味
vfp語言編寫，可適當修改。
function upperrmb
parameter rmb
private unit, number, i, retvar
unit = '分角圓拾佰仟萬拾佰仟億拾佰仟萬拾佰仟'
number = '零壹貳叄肆伍陸柒捌玖'
rmb = int(rmb*100+0.5)
retvar = ''
do while rmb>0
retvar = substr(number,2*(mod(rmb,10))+1,2)+left(unit,2)+retvar
rmb = int(rmb/10)
unit = substr(unit,3)
enddo
retvar = strtran(retvar,'零仟','零')
retvar = strtran(retvar,'零佰','零')
retvar = strtran(retvar,'零拾','零')
retvar = strtran(retvar,'零角','零')
do while '零零'$retvar
retvar = strtran(retvar,'零零','零')
enddo
retvar = strtran(retvar,'零億','億')
retvar = strtran(retvar,'零萬','萬')
retvar = strtran(retvar,'億萬','億零')
retvar = strtran(retvar,'零零','零')
retvar = strtran(retvar,'零圓','圓')
retvar = strtran(retvar,'零分','整')
retvar = iif(len(retvar)=0,'零圓整',retvar)
return retvar
怎麼用excel將小寫金額轉換**民幣的大寫金額
3樓：匿名使用者
可以先將小寫金額所在的單元格選中，然後設定單元格格式為中文大寫數字。
1、開啟excel文件，用滑鼠將所有小寫金額所在的單元格選中，然後右擊被選中的單元格，點選「從下拉選單中選擇...」按鈕：
2、在開啟的單元格格式設定視窗中，點選分類下面的「特殊」按鈕，然後點選型別裡面的「中文大寫數字」按鈕：
3、設定完成後，這時所有的小寫金額都會轉換成大寫金額，然後將excel文件進行儲存即可：
4樓：匿名使用者
excel**轉換
1用excel**把小寫金額轉換成大寫是很方便，我們以「8935」這個金額為例。在excel**中輸入「8935」，右擊設定單元格格式。
2設定單元格格式-數字-特殊-中文大寫數字3點選確定，就可以看到原先**中的數字變成大寫了。
「8935元」轉換成大寫金額就是「捌仟玖佰叄拾伍元整」
end搜狗輸入法輸入
還是以「8935」為例，用搜狗輸入法輸入。首先打出8000，依次900,30，5，「8935」打出「捌仟玖佰叄拾伍」，如果換成金額的話，後面加上元整，也就是捌仟玖佰叄拾伍元整。
2搜狗輸入法還有一個更簡單的轉換方法，就是再輸入數字的前面加上v。
比如我想打出「8935」的大寫，v8935，就可以看到輸入框下方的大寫金額了。
5樓：excel皮先生
小寫數字轉換成大寫金額。
6樓：
excel表你想把小寫的金額轉換為大寫的人民幣金額的話，那就可以，你在設定當中有一個選項。直接可以轉換掉
7樓：匿名使用者
excel**中把小寫金額轉換成大寫是很方便的，直接選中單元格，右擊設定單元格格式-數字-特殊-中文大寫數字。
8樓：匿名使用者
substitute(substitute(if(-rmb(e11),if(e11>0,,"負通用格式元角0分;;整"),),"零角",if(e11^2<1,,"零")),"零分","整")
9樓：你好麼閔明
結合int函式，再做1對應壹的vlookup()函式實現，看已知與輸出，差不多是這樣，遇到零在修正，可以自己完善下
10樓：匿名使用者
不好意思說錯了,一點小錯誤應該是在a2處輸入數字,在b2(或是其他任何單元格)處輸入公式即可,因為一般都會有表頭的
=substitute(substitute(if(a2<0,"負元
00"))),"角分",if(round(a2,2)=0,"","整")),"零元零",""),"零元","")
你就會發現你想要的.不懂的你問問你們公司稍微會用excel的就行了,這個包靈,我自己用過的
11樓：匿名使用者
=text(int(a1),"[dbnum2]")&"元角整",text(int(a1*100)-int(a1*10)*10,"[dbnum2]")&"分")
拿去研究一下
12樓：
市區裡插入有你自己去看一看，找一找裡面有。
13樓：匿名使用者
可選用以下方法：
1、如果都是整數，可通過單元格格式設定實現。選定單元格，在其上點滑鼠右鍵——「設定單元格格式」，點「數字」標籤——「特殊」，在」型別「中選擇「中文大寫數字」。
2、如果存在小數，即不是元的整數，可用以下公式處理：
=if(isnumber(a1),if(int(a1),text(int(a1),"[dbnum2]")&"元角",if(int(a1)=a1,,if(a1<0.1,,"零分",""),"")
EXCEL小寫轉換成大寫金額，EXCEL 小寫轉換成大寫金額
向你推薦兩個公式，這兩個公式很完整也很簡潔 並且使用了text a1,負 函式，可以處理文字型數字 的人民幣金額大寫 公式一 172個字元 substitute if rmb a1,2 text a1,負通用格式元 9 dbnum2 0角0分 if a1 2 1,0 dbnum2 0分 整 零分 整...
從鍵盤輸入字串，將小寫字母全部轉換成大寫字母，然後輸出到磁碟檔案中儲存。輸入字元以！結
手機使用者 上面這句話應該不對吧？小寫字母全部轉換成大寫字母就是對應ascii碼減32，你這個 z a 的值是25.另外贊同樓上說的 還可以按照常識，比如操作文字檔案都用ascii，對於二進位制檔案，用二進位制。但這不是絕對的，文字檔案用ascii，主要是這些資訊本來就是以自然文字的形式表達，你用記...
C語言寫一函式將字串大寫字母轉換成小寫字母
void swap char a,int n n是字串長度 只寫了轉換的函式 在主函式中呼叫就可以了 有個函式的 include char strlwr char string convert a string to lowercase example strlwr.c this program u...