求vf程式設計 人民幣小寫轉換成大寫

2023-03-26 11:50:05 字數 5351 閱讀 5356

1樓:匿名使用者

parameter numric

private i,j,k,s,p,m,w,c,d,r,q,t,nif abs(numric)>=1000000000000return [money too many]endifs=iif(numric<0,[(負)],i=ltrim(rtrim(str(abs(numric),15,2)))

j=at([.i)

if j=0

i=i+[.00]

endifk=len(i)

w=[仟佰拾億仟佰拾萬仟佰拾元。角分]

w=right(w,2*k)

q=[壹貳叄肆伍陸柒捌玖]

c=1t=0

m=iif((abs(numric)>=10000),[萬],[n=iif(abs(numric)>=100000000,[億],[r=space(0)

do while c<=k

d=val(subs(i,c,1))

p=subs(w,c*2-1,2)

if d > 0

if t>>0

r=r+[零]

endift=0

r=r+subs(q,2*d-1,2)+pelsedo case

case p=[萬]

r=r+mt=0

case p=[億]

r=r+nt=0

otherwise

if p=[元].>0r=r+[元]

t=0else

if p<>[

t=t+1endif

endifendcase

endifc=c+1

enddoif right(r,2)="元" or right(r,2)="角"

r=r+"整"

endifif at("億萬",r)<>0r=stuff(r,at("萬",r),2,""

endifreturn iif(numric<>0,s+r,'零元')

2樓:踏雪無痕

什麼意思?是123 變成 壹 貳 叄,還是壹佰貳拾叄?

3樓:雲揚雲悠

都是高手,我是菜鳥,就不折騰了。

小寫人民幣轉大寫人民幣

怎麼用excel將小寫金額轉換**民幣的大寫金額?

4樓:woshi段鈺

=if(or(f63=""f63=0),"text(int(f63),"dbnum2]")if(int(f63)=f63,"元","元")&if(int(f63)<>f63,text(--right(int(f63*10)),0]零;[>0][dbnum2]#角"),text(--right(int(f63*100)),0]整;[>0][dbnum2]#分整;"

複製此公式貼上到a2,把f63全部改成a1就ok了。顯示就是壹佰貳拾叄元肆角伍分整。

5樓:匿名使用者

可選用以下方法:

1、如果都是整數,可通過單元格格式設定實現。選定單元格,在其上點滑鼠右鍵——「設定單元格格式」,點「數字」標籤——「特殊」,在」型別「中選擇「中文大寫數字」。

2、如果存在小數,即不是元的整數,可用以下公式處理:

=if(isnumber(a1),if(int(a1),text(int(a1),"dbnum2]")元","if(mod(int(a1*10),10),text(mod(int(a1*10),10),"dbnum2]")角",if(int(a1)=a1,,if(a1<,,零"))if(mod(int(a1*100),10),text(mod(int(a1*100),10),"dbnum2]")分","

6樓:匿名使用者

不好意思說錯了,一點小錯誤應該是在a2處輸入數字,在b2(或是其他任何單元格)處輸入公式即可,因為一般都會有表頭的。

=substitute(substitute(if(a2<0,"負","text(trunc(abs(round(a2,2)))dbnum2]")元

00"))角","if(left(right(round(a2,2),3))=text(right(round(a2,2)),dbnum2]")分",if(round(a2,2)=0,""整"))零元零","零元","

你就會發現你想要的。不懂的你問問你們公司稍微會用excel的就行了,這個包靈,我自己用過的。

7樓:匿名使用者

補充一下,hjj5118 的意思我明白了。綜合tangjiangli的答案,我教hjj5118 做:

第一步,開啟已有的**,同時把這個網頁也開啟,稍後能用到這個公式。因為公式太長,必須得用複製,貼上的方法,才保準。

第二步,複製公式,冒號後一個也不能落下。

即:=substitute(substitute(if(a1<0,"負","text(trunc(abs(round(a1,2)))dbnum2]")元

0",text(a1,""角","if(left(right(round(a1,2),3))=text(right(round(a1,2)),dbnum2]")分",if(round(a1,2)=0,""整"))零元零","零元","

第三步,雙擊進入a2,使a2單元格中有游標在閃,點貼上。

第四步,回車。

8樓:匿名使用者

太神奇了,虧你想得出來的。

9樓:匿名使用者

我試過了,這個公式是正確的,不錯。

c++ 人民幣小寫轉大寫

10樓:

這是一個什麼問題?說清楚一點!

急求!如何在excel中實現人民幣小寫轉換人民幣大寫??

11樓:匿名使用者

1.在"單元格格式"--數字"--特殊" 選擇中文大寫數字就可以了。

不過單位得自己帶了。

2. =人民幣"&numberstring(f10,2)&"元整"

excel裡如何實現人民幣小寫到大寫的轉換?

12樓:加德滿都不熱

假設要轉換的數字在a1,我們通過分離在三個單元格來實現,a2顯示整數位,b2顯示角位,c2顯示分位。如果上一位是最後一位,則改為不顯示。

引用a2欄的函式為:

=if(int(a1)-a1=0, text(int(a1),"dbnum2][$804]g/通用格式")&元整",text(int(a1),"dbnum2][$804]g/通用格式")&元")

引用b2欄的函式為:

=if(int(a1)-a1=0,""if(a1*10-int(a1*10)=0,text(int(a1*10-int(a1)*10),"dbnum2][$804]g/通用格式")&角整",text(int(a1*10-int(a1)*10),"dbnum2][$804]g/通用格式")&角"))

引用c2欄的函式為:

=if(int(a1*10)-a1*10=0,""text(int(a1*100-int(a1*10)*10),"dbnum2][$804]g/通用格式")&分")

通過調整單元格大小,而且將a2設為居右、b2設為居中、c2設為居左可以實現。但拼湊出來的在顯示上畢竟不夠美觀,而且b2單元格有時候兩個字,有時候三個字,這時我想到了單元格文字數值的合併,經過測試,也最終實現了在一個單元格顯示。方法如下:

在第二行輸入完公式後,隱藏起來,做為過渡單元格,在a3欄輸入「=a2&b2&c2」,大寫在一個單元格顯示出來了。

13樓:匿名使用者

選定要轉化的小寫數字,點選右鍵——設定單元格格式——數字型別改為特殊——型別選定中文大寫數字。

你試試。

14樓:

公式=if(iserror(find(".b1)),numberstring(int(b1),2)&"元整",if(iserror(numberstring(mid(b1,find(".b1)+2,1),2)),numberstring(int(b1),2)&"元"&numberstring(mid(b1,find(".

",b1)+1,1),2)&"角整",numberstring(int(b1),2)&"元角分"))把公式中的b1改為你要轉換的單元格即可。

15樓:網友

上面的太長太長太長了 鬱悶。

我給你一個最簡單的 小寫轉大寫 函式。

=text(value,"[dbnum2]")value 就是要轉換的小寫 用這個函式給我分給我分 求求你了。

16樓:匿名使用者

下面這個你拿去用吧!

="合計人民幣(大寫<0,"負","text(trunc(abs(round(a2,2)))dbnum2]")元

00"))角","if(left(right(round(a2,2),3))=text(right(round(a2,2)),dbnum2]")分",if(round(a2,2)=0,""整"))零元零","零元","

這是自動小寫到大寫的!

你說的可能不是這個意思!

哪麼你可以在單元格進而的特殊中選擇,顯示的數字格式。

17樓:匿名使用者

=if(i118<0,"金額為負無效",if(or(i118=0,i118=""零元整",if(i118<1,""text(int(i118),"dbnum2]g/通用格式")&元"))if(int(i118*10)-int(i118)*10=0,if(int(i118)*(int(i118*100)-int(i118*10)*10)=0,""零"),text(int(i118*10)-int(i118)*10,"[dbnum2]")角整",text((int(i118*100)-int(i118*10)*10),"dbnum2]")分")

只要把i118改成你要轉換的 單元格就可以了。

如何用Matlab將人民幣小寫數字轉換為大寫

clear clc a1 壹貳叄肆伍陸柒捌玖 a2 a3 s 200002.20 ss num2str s 100 n length ss s1 ss 1 n 2 s2 ss n 1 n x1 x2 for i 1 n 2 if ss i 0 x1 x1 a1 str2num s1 i a2 els...

發票上小寫金額前的人民幣符號Y加怎麼打出來

因為在金額欄設定了以貨幣的形式顯示,只要有金額,就會自動顯現 中文輸入法狀態下按shift 數字鍵4 輸入法 中文 shift 4 填增值稅發票時大寫金額前的那個圓裡有個叉的符號是怎麼打出來的 是這個嗎?安裝好輸入法後 右鍵按一下 軟鍵盤 像鍵盤那個按鈕 然後選擇 符號輸入器 選擇 然後ok。很方便...

90元人民幣轉換美元是多少錢,20美元人民幣多少錢

行行重行行,與bai 君生別離。du 相去萬餘里,zhi各在天一涯dao。道路內阻且長,會面安可知容?胡馬倚北風,越鳥巢南枝。相去日已遠,衣帶日已緩。浮雲蔽白日,遊子不顧返。思君令人老,歲月忽已晚。棄捐勿複道,努力加餐飯。20美元人民幣多少錢 根據2019年12月05日匯率,20美元 140.84人...