'说明：本函数适合于万亿以下的货币转换，允许A的值是最多两位小数

'定义两个字符串，此处汉字与数字均按一位计算

DimString1AsString'如下定义

DimString2AsString'如下定义

DimString3AsString'从原A值中取出的值

DimIAsInteger'循环变量

DimJAsInteger'A的值乘以100的字符串长度

DimCh1AsString'数字的汉语读法

DimCh2AsString'数字位的汉字读法

DimnZeroAsInteger'用来计算连续的非零数是几个

String1="零壹贰叁肆伍陆柒捌玖"

String2="万仟佰拾亿仟佰拾万仟佰拾元角分"

'MsgBoxCStr(a*100)

IfInStr(1,CStr(a*100),".")<>0Then

err.Raise5000,,"此函数(AtoC())只能转换小数点后有两位以内的数！"

EndIf

J=Len(CStr(a*100))

String2=Right(String2,J)'取出对应位数的STRING2的值

ForI=1ToJ

String3=Mid(a*100,I,1)'取出需转换的某一位的值

IfString3<>"0"Then

Ch1=Mid(String1,Val(String3)+1,1)

Ch2=Mid(String2,I,1)

nZero=nZero+1'表示本位不为零

Else

IfnZero<>0OrI=J-9OrI=J-5OrI=J-1Then

IfRight(AtoC,1)="零"ThenAtoC=Left(AtoC,Len(AtoC)-1)

Ch1="零"

Else

Ch1=""

EndIf

'如果转换的数值需要扩大，那么需改动以下表达式I的值。

IfI=J-10Then

Ch2="亿"

ElseIfI=J-6Then

IfnZero<>0Then

Ch2="万"

'nZero=0

EndIf

ElseIfI=J-2Then

Ch2="元"

ElseIfI=JThen

Ch2="整"

Else

Ch2=""

EndIf

nZero=0

EndIf

AtoC=AtoC&Ch1&Ch2

NextI

'最后将多余的零去掉

AtoC=Replace(AtoC,"零元","元")

AtoC=Replace(AtoC,"零万","万")

AtoC=Replace(AtoC,"零亿","亿")

AtoC=Replace(AtoC,"零整","整")

下一篇：Asp读取文本文件并显示