45fan.com - 路饭网

搜索: 您的位置主页 > 电脑频道 > 电脑教程 > 阅读资讯:如何使用VB把数字转成中文字符串?

如何使用VB把数字转成中文字符串?

2016-08-27 10:53:52 来源:www.45fan.com 【

如何使用VB把数字转成中文字符串?

根据数字的读法,写了一个把数字转成中文字符串的程序
参数一为数字
参数二为是不是反回人民币大写
参数三为是不是直接读数字,否则带有十百等单位
参数四为设置小数点后面的位数,默认为4
使用方法是
t=GetChinaNum(20005.000436, , , 7)'返回 “二千零五点零零零四三六”
t=GetChinaNum(2005.436, True, , 7)'返回“贰仟零伍元肆角肆分”
t=GetChinaNum(2005.436, , True, 7)'返加“二零零五点四三六”

下面是程序代码

如何使用VB把数字转成中文字符串?FunctionGetChinaNum(otherNumAsDouble,OptionalisRMBAsBoolean,OptionalnumOptionAsBoolean,OptionaldotNumAsInteger)AsString
如何使用VB把数字转成中文字符串?OnErrorResumeNext
如何使用VB把数字转成中文字符串?num=Trim(Str(Int(otherNum)))
如何使用VB把数字转成中文字符串?
如何使用VB把数字转成中文字符串?
IfisRMBThen
如何使用VB把数字转成中文字符串?numwei="拾佰仟万拾佰仟亿拾佰仟"
如何使用VB把数字转成中文字符串?numshu="零壹贰叁肆伍陆柒捌玖拾"
如何使用VB把数字转成中文字符串?Else
如何使用VB把数字转成中文字符串?numwei="十百千万十百千亿十百千"
如何使用VB把数字转成中文字符串?numshu="零一二三四五六七八九十"
如何使用VB把数字转成中文字符串?EndIf
如何使用VB把数字转成中文字符串?IfotherNum<20AndotherNum>=10Then
如何使用VB把数字转成中文字符串?num=Right(num,1)
如何使用VB把数字转成中文字符串?GetChinaNum
=Left(numwei,1)
如何使用VB把数字转成中文字符串?
EndIf
如何使用VB把数字转成中文字符串?Fori=1ToLen(num)
如何使用VB把数字转成中文字符串?bstr
=Mid(num,i,1)
如何使用VB把数字转成中文字符串?
IfnumOptionThen
如何使用VB把数字转成中文字符串?GetChinaNum=GetChinaNum+Mid(numshu,Val(bstr)+1,1)
如何使用VB把数字转成中文字符串?
如何使用VB把数字转成中文字符串?
Else
如何使用VB把数字转成中文字符串?GetChinaNum=GetChinaNum+Mid(numshu,Val(bstr)+1,1)
如何使用VB把数字转成中文字符串?
Ifbstr="0"Then
如何使用VB把数字转成中文字符串?IfMid(numwei,Len(num)-i,1)=""OrMid(numwei,Len(num)-i,1)="亿"Then
如何使用VB把数字转成中文字符串?DoWhileRight(GetChinaNum,1)=""
如何使用VB把数字转成中文字符串?GetChinaNum=Left(GetChinaNum,Len(GetChinaNum)-1)
如何使用VB把数字转成中文字符串?
Loop
如何使用VB把数字转成中文字符串?GetChinaNum=GetChinaNum+Mid(numwei,Len(num)-i,1)
如何使用VB把数字转成中文字符串?
EndIf
如何使用VB把数字转成中文字符串?
如何使用VB把数字转成中文字符串?
Else
如何使用VB把数字转成中文字符串?
如何使用VB把数字转成中文字符串?GetChinaNum
=GetChinaNum+Mid(numwei,Len(num)-i,1)
如何使用VB把数字转成中文字符串?
EndIf
如何使用VB把数字转成中文字符串?GetChinaNum=Replace(GetChinaNum,"零零","")
如何使用VB把数字转成中文字符串?
EndIf
如何使用VB把数字转成中文字符串?Nexti
如何使用VB把数字转成中文字符串?
IfnumOption=FalseThen
如何使用VB把数字转成中文字符串?DoWhileRight(GetChinaNum,1)=""
如何使用VB把数字转成中文字符串?GetChinaNum=Left(GetChinaNum,Len(GetChinaNum)-1)
如何使用VB把数字转成中文字符串?
Loop
如何使用VB把数字转成中文字符串?EndIf
如何使用VB把数字转成中文字符串?IfisRMBThen
如何使用VB把数字转成中文字符串?numrmb="元角分"
如何使用VB把数字转成中文字符串?GetChinaNum=GetChinaNum+Mid(numrmb,1,1)
如何使用VB把数字转成中文字符串?
IfVal(num)<>otherNumThen
如何使用VB把数字转成中文字符串?num=Trim(Str(Round(otherNum-Val(num),2)))
如何使用VB把数字转成中文字符串?
Fori=2ToLen(num)
如何使用VB把数字转成中文字符串?bstr
=Mid(num,i,1)
如何使用VB把数字转成中文字符串?GetChinaNum
=GetChinaNum+Mid(numshu,Val(bstr)+1,1)+Mid(numrmb,i,1)
如何使用VB把数字转成中文字符串?
Nexti
如何使用VB把数字转成中文字符串?
Else
如何使用VB把数字转成中文字符串?GetChinaNum=GetChinaNum+""
如何使用VB把数字转成中文字符串?EndIf
如何使用VB把数字转成中文字符串?Else
如何使用VB把数字转成中文字符串?IfVal(num)<>otherNumThen
如何使用VB把数字转成中文字符串?IfdotNum=0ThendotNum=4
如何使用VB把数字转成中文字符串?num=Trim(CStr(Round(otherNum-Val(num),dotNum)))
如何使用VB把数字转成中文字符串?
IfGetChinaNum=""ThenGetChinaNum=""
如何使用VB把数字转成中文字符串?GetChinaNum=GetChinaNum+""
如何使用VB把数字转成中文字符串?Fori=2ToLen(num)
如何使用VB把数字转成中文字符串?bstr
=Mid(num,i,1)
如何使用VB把数字转成中文字符串?GetChinaNum
=GetChinaNum+Mid(numshu,Val(bstr)+1,1)
如何使用VB把数字转成中文字符串?
Nexti
如何使用VB把数字转成中文字符串?
EndIf
如何使用VB把数字转成中文字符串?EndIf
如何使用VB把数字转成中文字符串?EndFunction
如何使用VB把数字转成中文字符串?
如何使用VB把数字转成中文字符串?

 

本文地址:http://www.45fan.com/dnjc/68354.html
Tags: 中文 数字 转成
编辑:路饭网
关于我们 | 联系我们 | 友情链接 | 网站地图 | Sitemap | App | 返回顶部