1樓:高俠出平湖
dim dx(10)
dx(1)="零
bai"
dx(2)="壹"
dx(3)="貳du"
dx(4)="參"
dx(5)="肆
zhi"
dx(6)="伍
dao"
dx(7)="陸"
dx(8)="柒專"
dx(9)="捌
屬"dx(10)="玖"
input to x
select case
case x=0
y=dx(1)
case x=1
y=dx(2)
case x=2
y=dx(3)
case x=3
y=dx(4)
case x=4
y=dx(5)
case x=5
y=dx(6)
case x=6
y=dx(7)
case x=8
y=dx(9)
case x=9
y=dx(10)
end select? y
如何在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樓:
自己程式設計,可以在網上搜尋獲取些幫助
c語言程式設計的一道題,乙個把阿拉伯數字轉換成中文大寫數字的程式。我自己編寫如下:
4樓:匿名使用者
char num[10] = ;
char num2[10] = ;
char wei[4] = ;
char danwei[3] = ;
char wei2[4] = ;
這幾個定義不對,因為漢字佔兩個位元組,所要num等的長度要乘以2wei2和danwei兩個,當字串遇到\0就會結束,所要這樣定義是不對的
你要這麼定義,也就是定義二維陣列
num[10] = ;
其他的漢字定義也一樣,我就不寫了,下面我利用的時候,就預設改過了思路,首先判斷輸入的x的長度,接著轉換為0~9lx=strlen(x);
for(i=0;i x[i]=x[i]-'0'; 接著就是輸出了,這個要交替輸出 也就是輸出乙個x的字元0~9對應的num中的數,接著輸出對應的萬千億等標識 **是for(i=0;i 求vfp編寫的小寫金額轉換為大寫金額的原始碼 5樓:懶蟲 借用別人的**,已經在收費系統上執行一年多了,應該沒問題了 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 設定單元格格式,特殊 裡面有 大寫中文 如下圖 如果數值在a1,轉換為中文小寫輸入 text a1,dbnum1 轉換為中文大寫輸入 text a1,dbnum2 方法 步驟bai 開啟excel 選中小寫金du額 單 zhi元格 按滑鼠dao右鍵彈出專選單,選擇 設定單元格格式屬 此時彈出 設定單... 格式 單元格式 數字 會計專用。 右鍵 單元格格式 特殊 中文大寫數字 if isnumber a1 if int a1 text int a1 dbnum2 元 if int a1 10 int a1 10,text int a1 10 int a1 10,dbnum2 角 if int a1 a... 這個好像不能簡單地用公式來解決的,這需要用vba來實現的吧。function hztopy hzpy as string as string dim hzstring as string,pystring as string dim hzpysum as integer,hzi as integer...Excel中怎麼實現小寫金額自動轉換成中文大寫金額
在EXCEL中如何講數字轉換成漢字貨幣格式dbuam急
在Excel中如何將姓名轉換成拼音