2004-7-29 『代码梦工厂』浏览选项:颜色默认灰度橄榄色绿色蓝色褐色红色本文已被浏览28次今天整理文件时发现了以前写的货币金额中文转换(转换一亿亿元以下数目的货币)的代码,帖出来与大家共享:Functiondaxie(moneyAsString)AsString'DimxAsString,yAsStringConstzimu=".sbqwsbqysbqwsbq"'定义位置代码Constletter=""'定义汉字缩写Constupcase="零壹贰叁肆伍陆柒捌玖拾佰仟萬億圆整角分"'定义大写汉字DimtempAsStringtemp=moneyIfInStr(temp,".")>0Thentemp=Left(temp,InStr(temp,".")-1)IfLen(temp)>16ThenMsgBox"数目太大,无法换算!请输入一亿亿以下的数字",64,"错误提示":ExitFunction'只能转换一亿亿元以下数目的货币!x=Format(money,"")'格式化货币y=""Fori=1ToLen(x)-3y=y&Mid(x,i,1)&Mid(zimu,Len(x)-2-i,1)NextIfRight(x,3)=".00"Theny=y&"z"'***元整Elsey=y&Left(Right(x,2),1)&"j"&Right(x,1)&"f"'*元*角*分EndIfy=Replace(y,"0q","0")'避免零千(如:40200肆萬零千零贰佰)y=Replace(y,"0b","0")'避免零百(如:41000肆萬壹千零佰)y=Replace(y,"0s","0")'避免零十(如:204贰佰零拾零肆)DoWhiley<>Replace(y,"00","0")y=Replace(y,"00","0")'避免双零(如:1004壹仟零零肆)Loopy=Replace(y,"0y","y")'避免零億(如:210億贰佰壹十零億
实现货币金额中文大写转换的程序 来自淘豆网m.daumloan.com转载请标明出处.
