vb程序中同时转换vb中大小写转换的代码

来源：蜘蛛抓取(WebSpider) 时间：2016-11-18 02:45 标签： vb大小写转换的代码
如果您有什么建议或想投稿，请联系 QQ:
复杂精确型
本模块生成汉字大写的金额'Option Explicit'
得到一位数字
的汉字大写'
""Function CCh(N1) As String
Select Case N1
Case <font color="#
CCh = "零"
Case <font color="#
CCh = "壹"
Case <font color="#
CCh = "贰"
Case <font color="#
CCh = "叁"
Case <font color="#
CCh = "肆"
Case <font color="#
CCh = "伍"
Case <font color="#
CCh = "陆"
Case <font color="#
CCh = "柒"
Case <font color="#
CCh = "捌"
Case <font color="#
CCh = "玖"
End SelectEnd Function
'()Function'名称：
的汉字大写'
""Public Function ChMoney(N1) As String
Dim tMoney
Dim lMoney
'临时STRING
If N1 = <font color="# Then
ChMoney = "
Exit Function
If N1 < <font color="# Then
ChMoney = "负" + ChMoney(Abs(N1))
Exit Function
tMoney = Trim(Str(N1))
tn = InStr(tMoney, ".")
<font color="# Then
ST1 = Right(tMoney, Len(tMoney) - tn)
T1 = Left(ST1, <font color="#)
ST1 = Right(ST1, Len(ST1) - <font color="#)
s1 = s1 + CCh(Val(T1)) + "角"
T1 = Left(ST1, <font color="#)
s1 = s1 + CCh(Val(T1)) + "分"
ST1 = Left(tMoney, tn - <font color="#)
ST1 = tMoney
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s2 = CCh(Val(T1)) + s2
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s2 = CCh(Val(T1)) + "拾" + s2
If Left(s2, <font color="#)
"零" Then s2 = "零" + s2
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s2 = CCh(Val(T1)) + "佰" <font color="#0
00000">+ s2
If Left(s2, <font color="#)
"零" Then s2 = "零" + s2
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s2 = CCh(Val(T1)) + "仟" + s2
If Left(s2, <font color="#)
"零" Then s2 = "零" + s2
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s3 = CCh(Val(T1)) + s3
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s3 = CCh(Val(T1)) + "拾" + s3
If Left(s3, <font color="#)
"零" Then s3 = "零" + s3
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s3 = CCh(Val(T1)) + "佰" + s3
If Left(s3, <font color="#)
"零" Then s3 = "零" + s3
T1 = Right(ST1, <font color="#)
ST1 = Left(ST1, Len(ST1) - <font color="#)
s3 = CCh(Val(T1)) + "仟" + s3
If Right(s2, <font color="#) = "零" Then s2 = Left(s2, Len(s2) - <font color="#)
If Len(s3) > <font color="# Then
If Right(s3, <font color="#) = "零" Then s3 = Left(s3, Len(s3) - <font color="#)
s3 = s3 &#038; "万"
ChMoney = IIf(s3 &#038; s2 = "", s1, s3 &#038; s2 &#038; "元整" &#038; s1)End Function
简单明了型
Function RMBChinese(ByVal Rmb As Double) As String
On Error Resume Next
Dim Rmbexp As String, Rmbda As String, Expda As String, Lent As Integer, Ntyp As Integer, Icnt As Integer, i As Integer, Trmb As String
Rmb = Format(Rmb, "###0.00")
If Rmb > <font color="#.99 Then
RMBChinese = "需转换的金额整数长度超过了12位！"
Exit Function
Rmbexp = "分角元拾佰仟万拾佰仟亿拾佰仟"
Rmbda = "零壹贰叁肆伍陆柒捌玖"
Ntyp = <font color="#
Trmb = Replace(CStr(Format(Rmb, "0.00")), ".", "")
If Left(Trmb, <font color="#) = <fon
t color="#808080">"-" Then
Trmb = Mid(Trmb, <font color="#)
Ntyp = <font color="#
Expda = ""
Icnt = Len(Trmb)
For i = <font color="# To Icnt
Expda = Mid(Rmbda, Val(Mid(Trmb, Icnt - i + <font color="#, <font color="#)) + <font color="#, <font color="#) + IIf(Mid(Rmbexp, i, <font color="#) = "元", Mid(Rmbexp, i, <font color="#) + "
", Mid(Rmbexp, i, <font color="#)) + Expda
RMBChinese = IIf(Ntyp = <font color="#, "负" + Expda, Expda)End Function
THEME DESIGN BY JEZZZZ & MUGEE扫二维码下载作业帮
1.75亿学生的选择
下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
vb 大小写转换函数 大写换小写.小写换大写、.
扫二维码下载作业帮
1.75亿学生的选择
Private Sub Command1_Click()Dim X As StringDim I As LongDim S As StringDim CH As StringX = Text1.TextFor I = 1 To Len(X)CH = Mid(X,I,1)If CH >= "a " And CH = "A" And CH
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 vb大小写转换的代码 的文章

 

随机推荐