vb数字、金额大写转换
ConststrN="零壹贰叁肆伍陆柒捌玖"
ConststrG="拾佰仟万亿"
ConstintN="0123456789"
DimZero_CountAsLong'读零计数
'
PrivateFunctionGetN(ByValNAsLong)AsString
GetN=Mid(strN,N+1,1)
EndFunction
PrivateFunctionGetG(ByValGAsLong)AsString
SelectCaseG
Case1
GetG=""
Case2,6
GetG=Mid(strG,
下载地址
用户评论
很好用，但不是我想要的
很好用，正是我所需要的
感谢，资源可用，基本算法有了
有没有FRX中大小写的函数啊