-
暗一的定义如下
昏暗STRING2定义如下
从原来的sourcenum取值昏暗的string3值
模糊i循环变量
昏暗的j'sourcenum值乘以100的字符串长度
昏暗的CH1数语文阅读方法
昏暗的CH2的数位汉字阅读方法
昏暗的零用来计算连续零值几
string1 =lingyiersansiwuluqibajiu
STRING2 =1亿千千万万万万万万元角
零= 0
changenumtodx =
如果Not IsNumeric（sourcenum）然后
sourcenum =0
最后如果
如果仪器（1、CStr（sourcenum * 100），，）0
呃。提高5000，这个功能（ATOC（））只能改变小数点个数在两位。
最后如果
J =莱恩（CStr（sourcenum×100））
STRING2 =右（string2，j）的值所对应的数字string2的价值
对于i = 1到j
string3 =中（sourcenum×100，I，1）删除要转换一个值
如果我（J - 3）+ 1和I（j - 7）+ 1和i（j - 11）+ 1和i（j - 15）+ 1
如果string3 = 0
= 1
= CH2
NZero = nZero + 1
string3 0零0
CH1 =零中（一、CLng（string3）+ 1, 1）
CH2 =中（string2，I，1）
零= 0
其他的
CH1 =中（一、CLng（string3）+ 1, 1）
CH2 =中（string2，I，1）
零= 0
最后如果
其他是一个关键位，比如万亿、十亿、百万、元等等。
如果string3 0零0
CH1 =零中（一、CLng（string3）+ 1, 1）
CH2 =中（string2，I，1）
零= 0
string3 0和零= 0
CH1 =中（一、CLng（string3）+ 1, 1）
CH2 =中（string2，I，1）
零= 0
string3 = 0和零> = 3
= 1
= CH2
零=零+ 1
其他的
= 1
CH2 =中（string2，I，1）
零=零+ 1
最后如果
如果i =（j - 11）+ 1或i =（j - 3）+ 1，那么如果这个位是一百万或一位，就必须写它。
CH2 =中（string2，I，1）
最后如果
最后如果
ATOC = ATOC ch1 ch2
如果我= J和string3 = 0的最后一位（部分）是0，加全
changenumtodx = ATOC 全
最后如果
下一个
如果sourcenum = 0
changenumtodx =零的整数
最后如果
端功能
下面是一个例子
（100000）写ChangeNumToDx的反应。
结果是：一万元。
%>