VFP中如何實現數字轉換成大寫漢字請寫出程式

2021-03-03 20:34:14 字數 2967 閱讀 1820

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

Excel中怎麼實現小寫金額自動轉換成中文大寫金額

設定單元格格式,特殊 裡面有 大寫中文 如下圖 如果數值在a1,轉換為中文小寫輸入 text a1,dbnum1 轉換為中文大寫輸入 text a1,dbnum2 方法 步驟bai 開啟excel 選中小寫金du額 單 zhi元格 按滑鼠dao右鍵彈出專選單,選擇 設定單元格格式屬 此時彈出 設定單...

在EXCEL中如何講數字轉換成漢字貨幣格式dbuam急

格式 單元格式 數字 會計專用。 右鍵 單元格格式 特殊 中文大寫數字 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...

在Excel中如何將姓名轉換成拼音

這個好像不能簡單地用公式來解決的,這需要用vba來實現的吧。function hztopy hzpy as string as string dim hzstring as string,pystring as string dim hzpysum as integer,hzi as integer...