1樓：懶蟲
借用別人的**，已經在收費系統上執行一年多了，應該沒問題了
function rmbupper()
lparameters mmje &&輸入變數：數字型，小於9萬億,大於-9萬億
private dx,aa,i
dx=iif(mmje<0,'負','')
aa=round(abs(mmje)*100,0)
for i=len(alltrim(str(aa,15)))-1 to 0 step -1
dx=dx+subs('零壹貳叄肆伍陸柒捌玖',int(round(aa/10^i,10))*2+1,2)+subs('分角元拾佰仟萬拾佰仟億拾佰仟萬',i*2+1,2)
aa=mod(aa,10^i)
endf
dx=strtran(strtran(strtran(strtran(strtran(dx,'零仟','零'),'零佰','零'),'零拾','零'),'零角','零'),'零分','整')
dx=strtran(strtran(strtran(strtran(strtran(dx,'零零','零'),'零零','零'),'零億','億'),'零萬','萬'),'零元','元')
return iif(dx='整','零元整',strtran(strtran(dx,'億萬','億'),'零整','整'))
endfunc
如何在vfp下將小寫金額轉換成大寫金額
2樓：匿名使用者
1,把下面的**儲存進乙個prg檔案(注意,由於複製進來格式被改了, 你複製後會發現多了好多空行,刪除即可):
*--該函式的返回值能夠捨去數字之間的零，比較準確，符合會計準則，比較適合列印銀行存單等。
parameters namount
local lliffu
do case
case namount<0
namount=namount*-1
lliffu=.t.
case namount=0
return '零元整'
endcase
private all like l_*
l_s1= '零壹貳叄肆伍陸柒捌玖'
l_s2= '億仟佰拾萬仟佰拾億仟佰拾萬仟佰拾元角分'
namount=ltrim(str(namount*100,len(l_s2)/2))
l_len=len(namount)
l_ss2=righ(l_s2,2*l_len)
l_dx= ' '
l_0js=0 &&連續零的個數
l_n=0
do while l_n 0
l_sz= '零 '+l_sz
endif
l_0js=0
endif
l_dx=l_dx+l_sz+l_dw
enddo
l_dx=l_dx+iif(righ(namount,1)= '0 ', '整 ', ' ')
l_dx=chrtran(l_dx,' ','')
return iif(lliffu,'負','')+l_dx
2, 比如儲存檔名稱為num2hz.prg, 放在目錄d:\abc下, 舉例:
set path to d:\abc
?num2hz(123456.12)
這就是把這個prg檔案當成函式, 返回值就是文字
3樓：
自己程式設計，可以在網上搜尋獲取些幫助
急求！！！vfp中關於大小寫轉換和復原的程式設計！！！
4樓：匿名使用者
轉換成大寫，用upper函式
轉換成小寫，用lower函式
恢復，沒有函式，直接顯示原字串即可
例如：s=「abcd」
?"大寫：",upper(s)
?"小寫：",lower(s)
?"恢復：",s
在vfp中 英文大小寫轉換的問題
5樓：匿名使用者
使用函式
upper() 所有字母大寫
例如 **='abc'
? upper(**)
abclower() 所有字母小寫
例如 **='abc'
? lower(**)abc
6樓：搞怪
說的太模糊了，搞不懂
用c語言程式設計，輸入字元，若是小寫字母，轉換為大寫輸出，若
char in while in getchar n else if in a in z 求如何編寫乙個c語言程式，輸入乙個字元，若是小寫字母，轉換為大寫字母輸出，否則原字元輸出。char trans char str return str 輸入乙個字元，若是小寫字母，轉換成大寫字母輸出 若是大寫字...
字元,若是小寫字母則轉換為在字母中的序號不允許用
c語言演算法 假定 小寫字母轉為 序號 的 數值 為 1 到 26 char c if c a c z c c a 1 假定 小寫字母轉為 序號 的 數值 為 0 到 25 char c if c a c z c c a 用c語言程式設計，輸入乙個字元，若是小寫字母，轉換為大寫輸出，若是大寫字母，轉...
求vb中將字串轉換為16進位制的ascii碼
dim i as integer text2 for i 1 to len text1 text2 text2 format hex asc mid text1,i,1 0000 next 以上為熱心的結果，只是為了準確轉換數字與漢字，加了一點東西.text2.text hex asc text1....