大写的金额转换问题

在网上找到一个大写的金额的函数，加到自己的程序中后出现这样的错误：转换出来的大写金额总是大壹万倍，不知错在哪里，请大家给看看。

运行环境win2003，VB.Net

代码如下：TB_X和TB_H都是textbox组件，

?

Dim a = TB_X.Text '要转换成大写的金额
??????? Dim atoc '转换之后的值
??????? Dim String1 '如下定义
??????? Dim String2 '如下定义
??????? Dim String3 '从原A值中取出的值
??????? Dim I '循环变量
??????? Dim J 'A的值乘以100的字符串长度
??????? Dim Ch1 '数字的汉语读法
??????? Dim Ch2 '数字位的汉字读法
??????? Dim nZero '用来计算连续的零值是几个

??????? String1 = "零壹贰叁肆伍陆柒捌玖"
??????? String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
??????? nZero = 0

??????? If InStr(1, CStr(a * 100), ".") <> 0 Then
??????????? Err.Raise(5000, , "此函数( AtoC() )只能转换小数点后有两位以内的数！")
??????? End If

??????? J = Len(CStr(a * 100))
??????? String2 = Right(String2, J)? '取出对应位数的STRING2的值 ///

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！