把数字转化成中文大写代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】把数字转化成中文大写

作者:entry / 发布于2014/7/25/ 1570


	'**************************************************

	Function NumbertoRMB(number As String) As String
	Dim workspace As New notesuiworkspace
	Dim lef,rig As String'数据的左右侧部分的变量申明
	Dim Cur As String
	'---------自定义每个位数的中文大写-------------------
	Cur="万仟佰拾亿仟佰拾万仟佰拾元"
	Dim MyStr As String '整数部分
	Dim mySTR1 As String'小数点部分
	insert=number
	'-----对域的数据进行分析------------------------------
	n=Len(insert)
	nl=Instr(insert,".")'左边整数，包括小数点的总计位数
	nr=n-nl'右边小数点的总计位数
	'-----得到整数、小数点部分的具体数据------------------
	lef=Left(insert,nl-1)
	rig=Right(insert,nr)
	ln=nl-1'整数的位数
	rn=nr'右侧的小数点位数
	'----------整数部分的数字转化成中文大写---------------
	If lef<>"0" Then'如果整数部分为零，则不执行后续操作
	For i=1 To ln
	 '---------------判断整数部分是否存在0-----------------
	If Mid(lef,i,1)="0" Then
	 MyStr=MyStr+RMB(Mid(lef,i,1))
	Else
	 MyStr=MyStr+RMB(Mid(lef,i,1))+Mid(cur,13-ln+i,1)
	End If

	Next i
	End If

	'----------小数点部分的数字转化成中文大写-------------
	If rig="00" Then
	MyStr=MyStr+"整"
	Else
	'------------------------------------------------------

	MyStr=MyStr+RMB(Left(rig,1))+"角"+RMB(Right(Left(rig,2),1))+"分"
	End If

	'Call uidoc.fieldsettext("totlesum",mystr)
	NumbertoRMB=Mystr
	End Function

	'************************************************************
	'在表单中加入自定义函数RMB():
	'对应数字转化的RMB大写字
	'************************************************************
	Function RMB(s As String) As String

	Select Case s
	Case "1":
	RMB="壹"
	Case "2":
	RMB="贰"
	Case "3":
	RMB="叁"
	Case "4":
	RMB="肆"
	Case "5":
	RMB="伍"
	Case "6":
	RMB="陆"
	Case "7":
	RMB="柒"
	Case "8":
	RMB="捌"
	Case "9":
	RMB="玖"
	Case "0":
	RMB="零"

	End Select
	End Function

试试其它关键字

　中文大写　

同语言下

可能有用的

entry贡献的其它代码(10)