求vf编程：人民币小写转换成大写
\u5c0f\u5199\u4eba\u6c11\u5e01\u8f6c\u5927\u5199\u4eba\u6c11\u5e01\u6211\u81ea\u5df1\u7f16\u7684\uff0c\u597d\u8f9b\u82e6\u554a
\u7ed9\u70b9\u60ac\u8d4f\u628a
\u8981\u7528\u65f6\u8f93\u5165\u4ee3\u7801
text1.text=numbertocharacter(text2.text)
\u6e90\u7a0b\u5e8f\u5982\u4e0b
Option Explicit
Public Function NumberToCharacter(number As String) As String
'\u5b8c\u6210\u8f6c\u6362\u7684\u4e3b\u51fd\u6570
Dim Pos_Point As Long '\u8bb0\u5f55\u5c0f\u6570\u70b9\u7684\u4f4d\u7f6e
Dim curNum As String '\u8bb0\u5f55\u5f53\u524d\u5904\u7406\u7684\u6570\u5b57
Dim zhengshu As String '\u8bb0\u5f55\u6574\u6570\u90e8\u5206
Dim shuduan As String '\u622a\u53d6\u67d0\u4e00\u4e2a\u6570\u636e\u6bb5
'\u68c0\u7d22\u5c0f\u6570\u70b9\u7684\u4f4d\u7f6e
Pos_Point = InStr(number, ".")
'\u5904\u7406\u5c0f\u6570\u90e8\u5206
If Pos_Point = 0 Then
'\u6ca1\u6709\u5c0f\u6570\u70b9\uff0c\u5c06\u5c0f\u6570\u70b9\u8bbe\u7f6e\u5728\u6700\u672b\u5c3e
Pos_Point = Len(number)
ElseIf Len(number) = Pos_Point Then
'\u4ee5\u5c0f\u6570\u70b9\u7ed3\u5c3e\uff0c\u4e0d\u4f5c\u5904\u7406
ElseIf Len(number) = Pos_Point + 1 Then
'\u4e00\u4f4d\u5c0f\u6570\uff0c\u76f4\u63a5\u7ffb\u8bd1\u4e3a\u89d2
curNum = Right(number, 1)
NumberToCharacter = NumToChr(curNum) & "\u89d2"
ElseIf Len(number) = Pos_Point + 2 Then
'\u53d6\u7b2c\u4e00\u4f4d
curNum = Right(number, 1)
'\u82e5\u7b2c\u4e00\u4f4d\u4e3a\u96f6\uff0c\u5219\u4e0d\u4f5c\u5904\u7406\uff0c\u5426\u5219\u8bd1\u4e3a\u201c\u89d2\u201d
If curNum "0" Then
NumberToCharacter = NumToChr(curNum) & "\u5206"
End If
'\u53d6\u7b2c\u4e8c\u4f4d
curNum = Left(Right(number, 2), 1)
'\u82e5\u7b2c\u4e8c\u4e3a\u96f6\uff0c\u4e0d\u4f5c\u5904\u7406\uff0c\u5426\u5219\u8bd1\u4e3a\u201c\u5206\u201d
If curNum "0" Then
NumberToCharacter = NumToChr(curNum) & "\u89d2" & NumberToCharacter
End If
End If
'\u5904\u7406\u6574\u6570
zhengshu = ""
If Pos_Point > 14 Then
'\u5927\u4e8e 9999999999999 \u7684\u6570\u636e\u4e0d\u8f6c\u6362
MsgBox "\u8be5\u6570\u636e\u65e0\u6cd5\u8f6c\u6362", vbOKOnly + vbInformation, "\u91d1\u989d\u8f6c\u6362"
Exit Function
ElseIf Pos_Point > 9 Then
zhengshu = "\u4ebf"
'\u4ebf\u4f4d\u4ee5\u4e0a\u7684\u90e8\u5206
shuduan = Left(number, Pos_Point - 9)
zhengshu = shuduantoCharacter(shuduan) & zhengshu
'\u4e07\u4f4d\u4ee5\u4e0a\u7684\u90e8\u5206
shuduan = Right(Left(number, Pos_Point - 5), 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & "\u4e07"
'\u4e07\u4f4d\u4ee5\u4e0b\u90e8\u5206
shuduan = Right(Left(number, Pos_Point - 1), 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & "\u5706"
ElseIf Pos_Point > 5 Then
'\u4e07\u4f4d\u4ee5\u4e0a\u7684\u90e8\u5206
shuduan = Right(Left(number, Pos_Point - 5), 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & "\u4e07"
'\u4e07\u4f4d\u4ee5\u4e0b\u90e8\u5206
shuduan = Right(Left(number, Pos_Point - 1), 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & "\u5706"
Else
'\u4e07\u4f4d\u4ee5\u4e0b
shuduan = Right(Left(number, Pos_Point - 1), 4)
zhengshu = zhengshu & shuduantoCharacter(shuduan) & "\u5706"
End If
NumberToCharacter = zhengshu & NumberToCharacter
'\u8f93\u5165\u4e3a\u201c0\u201d\uff0c\u7279\u6b8a\u5904\u7406
If NumberToCharacter = "\u5706" Then
NumberToCharacter = "\u96f6\u5706"
End If
End Function
Public Function NumToChr(num As String) As String
'\u6570\u5b57\u8f6c\u5316\u4e3a\u5bf9\u5e94\u7684\u4e2d\u6587
Select Case num
Case "1"
NumToChr = "\u58f9"
Case "2"
NumToChr = "\u8d30"
Case "3"
NumToChr = "\u53c2"
Case "4"
NumToChr = "\u8086"
Case "5"
NumToChr = "\u4f0d"
Case "6"
NumToChr = "\u9646"
Case "7"
NumToChr = "\u67d2"
Case "8"
NumToChr = "\u634c"
Case "9"
NumToChr = "\u7396"
Case "0"
NumToChr = "\u96f6"
End Select
End Function
'\u5bf9\u5206\u8282\u540e\u7684\u6bcf\u4e00\u8282\u6570\u636e\u8fdb\u884c\u7ffb\u8bd1\uff0c
'\u4f8b\u5982: 1234512341234\u88ab\u5206\u4e3a12345\uff0c1234\uff0c1234
Public Function shuduantoCharacter(duan As String) As String
Dim curNum As String
Dim answer As String
answer = ""
If Len(duan) = 5 Then
'\u6709\u4e07\u4f4d
answer = NumToChr(Left(duan, 1)) & "\u4e07"
'\u5343\u4f4d
curNum = Right(Left(duan, 2), 1)
If curNum "0" Then
answer = answer & NumToChr(curNum) & "\u4edf"
Else
answer = answer & "\u96f6"
End If
'\u767e\u4f4d
curNum = Right(Left(duan, 3), 1)
If curNum "0" Then
answer = answer & NumToChr(curNum) & "\u4f70"
Else
If Right(answer, 1) "\u96f6" Then
answer = answer & "\u96f6"
End If
End If
'\u5341\u4f4d
curNum = Right(Left(duan, 4), 1)
If curNum "0" Then
answer = answer & NumToChr(curNum) & "\u62fe"
Else
If Right(answer, 1) "\u96f6" Then
answer = answer & "\u96f6"
End If
End If
'\u4e2a\u4f4d
curNum = Right(duan, 1)
If curNum "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "\u96f6" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(duan) = 4 Then
'\u6709\u5343\u4f4d
answer = NumToChr(Left(duan, 1)) & "\u4edf"
'\u767e\u4f4d
curNum = Left(Right(duan, 3), 1)
If curNum "0" Then
answer = answer & NumToChr(curNum) & "\u4f70"
Else
If Right(answer, 1) "\u96f6" Then
answer = answer & "\u96f6"
End If
End If
'\u5341\u4f4d
curNum = Left(Right(duan, 2), 1)
If curNum "0" Then
answer = answer & NumToChr(curNum) & "\u62fe"
Else
If Right(answer, 1) "\u96f6" Then
answer = answer & "\u96f6"
End If
End If
'\u4e2a\u4f4d
curNum = Right(duan, 1)
If curNum "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "\u96f6" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(duan) = 3 Then
'\u6709\u767e\u4f4d
answer = NumToChr(Left(duan, 1)) & "\u4f70"
'\u5341\u4f4d
curNum = Left(Right(duan, 2), 1)
If curNum "0" Then
answer = answer & NumToChr(curNum) & "\u62fe"
Else
If Right(answer, 1) "\u96f6" Then
answer = answer & "\u96f6"
End If
End If
'\u4e2a\u4f4d
curNum = Right(duan, 1)
If curNum "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "\u96f6" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(duan) = 2 Then
'\u6709\u5341\u4f4d
answer = NumToChr(Left(duan, 1)) & "\u62fe"
'\u4e2a\u4f4d
curNum = Right(duan, 1)
If curNum "0" Then
answer = answer & NumToChr(curNum)
Else
If Right(answer, 1) = "\u96f6" Then
answer = Left(answer, Len(answer) - 1)
End If
End If
ElseIf Len(duan) = 1 Then
'\u6709\u4e2a\u4f4d
answer = NumToChr(Left(duan, 1))
End If
shuduantoCharacter = answer
End Function
\u4e0b\u9762\u8fd9\u6bb5\u7a0b\u5e8f\u53ef\u5c06\u963f\u62c9\u4f2f\u6570\u5b57\u8f6c\u4e3a\u5927\u5199\uff0c\u4f60\u8bd5\u8bd5\uff01
\u5e0c\u671b\u5bf9\u4f60\u6709\u5e2e\u52a9\u3002
set talk off
ZK="\u58f9\u8d30\u53c1\u8086\u4f0d\u9646\u67d2\u634c\u7396\u96f6"
shu="20070613"
n=Len(shu)
cStr=""
for i=1 to n
j=Val(substr(shu,i,1))
k=iif(j#0,j,10)
cStr=cStr+substr(zk,2*k-1,2)
endfor
? cStr
set talk on
return
Public Function hbzh(a As Integer) As String
Dim s As String
Dim x As Integer, y As Integer, z As Integer, m As Integer
s = "零壹贰叁肆伍陆柒捌玖"
If a < 10 Then
hbzh = Mid(s, a + 1, 1) & "圆"
ElseIf a < 100 Then
x = a \ 10
y = a - x * 10
If y = 0 Then
hbzh = Mid(s, x + 1, 1) & "拾圆"
Else
hbzh = Mid(s, x + 1, 1) & "拾" & Mid(s, y + 1, 1) & "圆"
End If
ElseIf a < 1000 Then
x = a \ 100
y = (a - x * 100) \ 10
z = a - x * 100 - y * 10
If y = 0 And z = 0 Then
hbzh = Mid(s, x + 1, 1) & "佰圆"
ElseIf y = 0 And z > 0 Then
hbzh = Mid(s, x + 1, 1) & "佰零" & Mid(s, z + 1, 1) & "圆"
ElseIf y > 0 And z = 0 Then
hbzh = Mid(s, x + 1, 1) & "佰" & Mid(s, y + 1, 1) & "拾圆"
ElseIf y > 0 And z > 0 Then
hbzh = Mid(s, x + 1, 1) & "佰" & Mid(s, y + 1, 1) & "拾" & Mid(s, z + 1, 1) & "圆"
End If
ElseIf a < 10000 Then
x = a \ 1000
y = (a - x * 1000) \ 100
z = (a - x * 1000 - y * 100) \ 10
m = a - x * 1000 - y * 100 - z * 10
If y = 0 And z = 0 And m = 0 Then
hbzh = Mid(s, x + 1, 1) & "仟圆"
ElseIf y = 0 And z = 0 And m > 0 Then
hbzh = Mid(s, x + 1, 1) & "仟零" & Mid(s, m + 1, 1) & "圆"
ElseIf y = 0 And z > 0 And m = 0 Then
hbzh = Mid(s, x + 1, 1) & "仟零" & Mid(s, z + 1, 1) & "拾圆"
ElseIf z = 0 And m = 0 And y > 0 Then
hbzh = Mid(s, x + 1, 1) & "仟" & Mid(s, y + 1, 1) & "佰圆"
ElseIf y = 0 And z > 0 And m > 0 Then
hbzh = Mid(s, x + 1, 1) & "仟零" & Mid(s, z + 1, 1) & "拾" & Mid(s, m + 1, 1) & "圆"
ElseIf y > 0 And z = 0 And m > 0 Then
hbzh = Mid(s, x + 1, 1) & "仟" & Mid(s, y + 1, 1) & "佰零" & Mid(s, m + 1, 1) & "圆"
ElseIf y > 0 And z > 0 And m = 0 Then
hbzh = Mid(s, x + 1, 1) & "仟" & Mid(s, y + 1, 1) & "佰" & Mid(s, z + 1, 1) & "拾圆"
ElseIf y > 0 And z > 0 And m > 0 Then
hbzh = Mid(s, x + 1, 1) & "仟" & Mid(s, y + 1, 1) & "佰" & Mid(s, z + 1, 1) & "拾" & Mid(s, m + 1, 1) & "圆"
End If
End If
End Function
用vb编的可用,局限是只能0-10000,大于10000的类推.
PARAmeter numric
private i,j,k,s,p,m,w,c,d,r,q,t,n
if abs(numric)>=1000000000000
return [Money too many]
endif
s=iif(numric<0,[(负)],[])
i=ltrim(rtrim(str(abs(numric),15,2)))
j=at([.],i)
if j=0
i=i+[.00]
endif
k=len(i)
W=[仟佰拾亿仟佰拾万仟佰拾元..角分]
w=right(w,2*k)
Q=[壹贰叁肆伍陆柒捌玖]
c=1
t=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.and.len(r)>0
r=r+[零]
endif
t=0
r=r+subs(q,2*d-1,2)+p
else
do case
case p=[万]
r=r+m
t=0
case p=[亿]
r=r+n
t=0
otherwise
if p=[元].and.len(r)>0
r=r+[元]
t=0
else
if p<>[..]
t=t+1
endif
endif
endcase
endif
c=c+1
enddo
if right(r,2)="元" or right(r,2)="角"
r=r+"整"
endif
if at("亿万",r)<>0
r=stuff(r,at("万",r),2,"")
endif
return iif(numric<>0,s+r,'零元')
什么意思?
是123 变成 壹 贰 叁,还是壹佰贰拾叁?
都是高手，我是菜鸟，就不折腾了。
绛旓細Public Function hbzh(a As Integer) As String Dim s As String Dim x As Integer, y As Integer, z As Integer, m As Integer s = "闆跺９璐板弫鑲嗕紞闄嗘煉鎹岀帠"If a < 10 Then hbzh = Mid(s, a + 1, 1) & "鍦"ElseIf a < 100 Then x = a \ 10 y = a - x * 10 If...
绛旓細姣斿VF涓啓浠ｇ爜,1071绉嶆儏鍐 clea s=0 for i=0 to 20 for j=0 to 100 for k=0 to 200 if i*5+j*1+k*0.5=100 s=s+1 ?? i ?? j ?? k ?? ","endif endfor endfor endfor ? "鍏辨湁"+allt(str(s))+"绉嶅彲鑳"
绛旓細闄や簡鍦ㄩ┈鏉ヨタ浜氭寮忔帹鍑2020 SYM Maxsym 500韪忔澘杞﹀锛孲YM杩樺湪褰撳湴鍙戝竷浜2020 SYM VF3i 85 LE瓒呯骇寮锛屽敭浠蜂负RM9,338锛堢害1.5涓浜烘皯甯锛夛紝姣斿厛鍓嶇殑杞﹀瀷楂樺嚭RM1,000銆係YM VF3i 185 LE鐩墠宸茬粡鍒拌揣锛屽湪褰撳湴浜湁涓ゅ勾鎴栦袱涓囧叕閲岀殑淇濅慨銆係YM VF3i LE浣滀负闄愰噺鐗堟墍浠ュ悗缂鍚嶅姞涓娾淟E鈥濓紝杩欎釜鐗堟湰鏈澶氱敓浜...
绛旓細www 8456cy com
绛旓細灏辨嬁浠婂勾鏉ヨ鍚,鍧庡競鍔犲揩浜嗏滄柊椴滆娑测濈殑娉ㄥ叆,鎷涘晢寮曡祫宸ヤ綔鐑氮婊氭粴,鎴愬姛寮曡繘500涓囧厓浠ヤ笂澶ч」鐩氨鏈夊叚涓,璧勯噾涓や嚎鍏;浜у艰揪500涓囧厓浠ヤ笂鐨勮妯″伐涓,鍧庡競寮曡繘浜14涓傝壇濂界殑鐜鍚稿紩鍙拌祫杩17浜垮厓浜烘皯甯銆傛渶鍊煎緱鎴戜滑楠勫偛鐨勬槸,鍥戒骇瀹炰笟(绂忓缓)姘存偿鏈夐檺鍏徃 鈥300涓囧惃鏃嬬獞姘存偿寤哄湪鎴戝闄勮繎,瀹冪幇鍦ㄨ繕鏄叏鐪佹渶澶х殑姘存偿...
绛旓細浼楁墍鍛ㄧ煡锛屽嵃搴︿箣鎵浠ヨ兘澶熸垚涓鸿蒋浠跺ぇ鍥斤紝涓庝粬浠娇鐢ㄨ嫳鏂囦綔涓烘瘝璇槸鍒嗕笉寮鐨勩傜幇鍦ㄦ湁浜嗘槗璇█锛屽浗浜轰篃鑳藉浣跨敤鑷繁鐨勬瘝璇繘琛岀紪绋嬶紝骞朵笖鎵缂栧啓鍑烘潵鐨勬簮绋嬪簭鍙互杞绘澗閫氳繃绯荤粺闄勫甫宸ュ叿缈昏瘧杞崲涓浠讳綍涓绉嶅鏂囷紝涓烘垜鍥藉疄鐜拌蒋浠朵骇涓氬寲鍜岃蒋浠舵壒閲忓嚭鍙ｏ紝鍩瑰吇澶ч噺杞欢浜烘墠濂犲畾鍧氬疄鐨勫熀纭銆2銆佹彁楂樼ぞ浼氱敓浜х巼 鐜板湪寰堝鍚...
绛旓細鍙兘鏈夌殑瀹堕暱璇,鍗充娇鎴戠殑钖叕涓嶉珮,涔熸瘮鍏朵粬寰堝涓撲笟鐨勮柂閰楂,鍙兘楂樹釜涓涓ゅ崈,浣嗘槸杩欐槸娌℃湁浠涔堟剰涔夌殑,澶у鍚杩囨病鏈,35宀佺殑宸ョ▼甯堣涓浜涗簰鑱旂綉鐨勫ぇ鍏徃鍚堝悓涓嶅啀缁害浜,灏辨槸35宀佸氨浼氶潰涓磋浆琛,浣嗘槸,鏈夌殑宸ヤ綔鏄秺鑰佽秺鍚冮,姣斿璇村鍖荤殑,35宀佹墠寮濮嬫垚涓洪骞,鎵嶅鎴愬綊鏉,鑰屽璁＄畻鏈虹殑,杩欎釜鏃跺欏凡缁忓埌浜嗗己寮╀箣...
