文档介绍：<%Functionrmb(num)num=FormatNumber(num,2)DimnumListDimrmbListDimnumLenDimnumCharDimnumstrDimnDimn1,n2DimhznumList="零壹贰叁肆伍陆柒捌玖"rmbList="分角元拾佰仟万拾佰仟亿拾佰仟万"Ifnum>="超出范围的人民币值"ExitFunctionEndIfnumstr=CStr(num*100)numLen=Len(numstr)n=1DoWhilen<=numLennumChar=CInt(Mid(numstr,n,1))n1=Mid(numList,numChar+1,1)n2=Mid(rmbList,numLen-n+1,1)IfNotn1="零"Thenhz=hz+CStr(n1)+CStr(n2)ElseIfn2="亿"Orn2="万"Orn2="元"Orn1="零"ThenDoWhileRight(hz,1)="零"hz=Left(hz,Len(hz)-1)LoopEndIfIf(n2="亿"Or(n2="万"AndRight(hz,1)<>"亿")Orn2="元")Thenhz=hz+CStr(n2)ElseIfLeft(Right(hz,2),1)="零"OrRight(hz,1)<>"亿"Thenhz=hz+n1EndIfEndIfEndIfn=n+1LoopDoWhileRight(hz,1)="零"hz=Left(hz,Len(hz)-1)LoopIfRight(hz,1)="元"Thenhz=hz+"整"EndIfrmb=hzEndFunction‘金额小写转换成每3位加个,分隔的函数FunctiongetMoney(num)OnErrorResumeNextIfNotIsNumeric(num)Thennum=0getMoney=FormatNumber(CDbl(num),2,-1,0,-1)EndFunction‘银行帐号每4位加个空格分开的函数FunctionFormat4(num)dimnumstrdimnumLendimnumChar:numChar=""dimndimnumModdimnumList onErrorResumeNext IfNotIsNumeric(num)ThenExitFunction numstr=CStr(num)'转换为字符串 numLen=Len(numstr)'求字符串的长度 numList=numLen\4'分成几段 n=0 dowhilen<numLis