编写大写金额转换阿拉伯数字域代码中遇到的有趣现象

sylun · 发表于 2006-10-21 23:23

前段时间学习用域代码对文本进行比较，其间曾尝试用域的方法将大写金额自动转换成阿拉伯数字。经反复修改，勉强编写出十万以内的转换代码，但步骤十分繁琐，文件也很大，而且随着位数增加，情况愈加复杂。看来进行这样的转换并不适宜用域的这种比较方法，也许只有VBA才能胜任了。

编写这样的域代码并无多大实用意义，主要还是想多了解点域的作用。在对编写出的域代码进行简化的过程中，发现一有趣现象，是关于嵌套域的层级限制问题。本来原文件（附件中的1号）已基本通过不同位数的更新测试，为了使文件变小一点，便对其中的SEQ域（作用为生成大写汉字数字）取消域链接。但全部取消链接好后，更新时居然出错，提示“域嵌套太深！”原以为取消链接应该是减少了一层嵌套才对。只好分段取消链接，最后简化成附件2号的文档。如果将附件2号中两部分蓝色域代码段其中之一取消SEQ域的链接则会出错。另一种情况是当大写为5位数时无问题，但当减至3位数时就出错，这也是取消SEQ域链接导致的。

此外，代码最后的对阿拉伯数字的合并公式是以逻辑函数的简化式写成，中间并无使用域大括号，不知是否只算一层嵌套？

各位如有兴趣可作测试，并请帮忙把把脉。

aOc0baTI.rar (36.09 KB, 下载次数: 235)

守柔 · 发表于 2007-12-15 16:51

谢谢sylun兄！我把你的域代码贴出来：

注意,"{}"是由Ctrl+F9组合键自动插入的域标志!

域代码:人民币大写转阿拉伯数值

(十万位以内)

请按Ctrl+A选全文并按F9后输入大写金额进行测试。

{ quote
{ASK je "请输入人民币大写金额" \d "玖万贰仟叁佰肆拾伍元陆角柒分"}
{ set www "{ If je = "{ seq wan \* CHINESENUM2 }万*" 1 { If je = "{ seq wan \* CHINESENUM2 }万*" 2 { If je = "{ seq wan \* CHINESENUM2 }万*" 3 { If je = "{ seq wan \* CHINESENUM2 }万*" 4 { If je = "{ seq wan \* CHINESENUM2 }万*" 5 { If je = "{ seq wan \* CHINESENUM2 }万*" 6 { If je = "{ seq wan \* CHINESENUM2 }万*" 7 { If je = "{ seq wan \* CHINESENUM2 }万*" 8 { If je = "{ seq wan \* CHINESENUM2 }万*" 9}}}}}}}}}" }
{ set qqq1 "{ If je = "?万壹仟*" 1 { If je = "?万贰仟*" 2 }}"}
{ set qqq2 "{ If je = "壹仟*" 1 { If je = "贰仟*" 2 { If je = "叁仟*" 3 { If je = "肆仟*" 4 { If je = "伍仟*" 5 { If je = "陆仟*" 6 { If je = "柒仟*" 7 { If je = "捌仟*" 8 { If je = "玖仟*" 9 }}}}}}}}}"}

{ set bbb1 "{ If je = "壹佰*" 1 { If je = "贰佰*" 2 { If je = "叁佰*" 3 { If je = "肆佰*" 4 { If je = "伍佰*" 5 { If je = "陆佰*" 6 { If je = "柒佰*" 7 { If je = "捌佰*" 8 { If je = "玖佰*" 9}}}}}}}}}" }
{ set bbb2 "{ If je = "??壹佰*" 1 { If je = "??贰佰*" 2 { If je = "??叁佰*" 3 { If je = "??肆佰*" 4 { If je = "??伍佰*" 5 { If je = "??陆佰*" 6 { If je = "??柒佰*" 7 { If je = "??捌佰*" 8 { If je = "??玖佰*" 9}}}}}}}}}" }

{ set bbb3 "{ If je = "???壹佰*" 1 { If je = "???贰佰*" 2 { If je = "???叁佰*" 3 { If je = "???肆佰*" 4 { If je = "???伍佰*" 5 { If je = "???陆佰*" 6 { If je = "???柒佰*" 7 { If je = "???捌佰*" 8 { If je = "???玖佰*" 9}}}}}}}}}" }
{ set bbb4 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 1 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 2 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 3 }}} }
{ set sss1 "{ If je = "壹拾*" 1 { If je = "贰拾*" 2 { If je = "叁拾*" 3 { If je = "肆拾*" 4 { If je = "伍拾*" 5 { If je = "陆拾*" 6 { If je = "柒拾*" 7 { If je = "捌拾*" 8 { If je = "玖拾*" 9}}}}}}}}}" }

{ set sss2 "{ If je = "*壹拾??" 1 { If je = "*贰拾??" 2 { If je = "*叁拾??" 3 { If je = "*肆拾??" 4 { If je = "*伍拾??" 5 { If je = "*陆拾??" 6 { If je = "*柒拾??" 7 { If je = "*捌拾??" 8 { If je = "*玖拾??" 9}}}}}}}}}" }
{ set sss3 "{ If je = "*壹拾???" 1 { If je = "*贰拾???" 2 { If je = "*叁拾???" 3 { If je = "*肆拾???" 4 { If je = "*伍拾???" 5 { If je = "*陆拾???" 6 { If je = "*柒拾???" 7 { If je = "*捌拾???" 8 { If je = "*玖拾???" 9}}}}}}}}}" }

{ set sss4 "{ If je = "*壹拾????" 1 { If je = "*贰拾????" 2 { If je = "*叁拾????" 3 { If je = "*肆拾????" 4 { If je = "*伍拾????" 5 { If je = "*陆拾????" 6 { If je = "*柒拾????" 7 { If je = "*捌拾????" 8 { If je = "*玖拾????" 9}}}}}}}}}" }
{ set sss5 "{ If je = "*壹拾?????" 1 { If je = "*贰拾?????" 2 { If je = "*叁拾?????" 3 { If je = "*肆拾?????" 4 { If je = "*伍拾?????" 5 { If je = "*陆拾?????" 6 { If je = "*柒拾?????" 7 { If je = "*捌拾?????" 8 { If je = "*玖拾?????" 9}}}}}}}}}" }

{ set sss6 "{ If je = "*壹拾??????" 1 { If je = "*贰拾??????" 2 { If je = "*叁拾??????" 3 { If je = "*肆拾??????" 4 }}}}" }
{ set yyy1 "{ If je = "壹元*" 1 { If je = "贰元*" 2 { If je = "叁元*" 3 { If je = "肆元*" 4 { If je = "伍元*" 5 { If je = "陆元*" 6 { If je = "柒元*" 7 { If je = "捌元*" 8 { If je = "玖元*" 9}}}}}}}}}" }

{ set yyy2 "{ If je = "壹圆*" 1 { If je = "贰圆*" 2 { If je = "叁圆*" 3 { If je = "肆圆*" 4 { If je = "伍圆*" 5 { If je = "陆圆*" 6 { If je = "柒圆*" 7 { If je = "捌圆*" 8 { If je = "玖元*" 9}}}}}}}}}" }
{ set yyy3 "{ If je = "*壹元?" 1 { If je = "*贰元?" 2 { If je = "*叁元?" 3 { If je = "*肆元?" 4 { If je = "*伍元?" 5 { If je = "*陆元?" 6 { If je = "*柒元?" 7 { If je = "*捌元?" 8 { If je = "*玖元?" 9}}}}}}}}}" }

{ set yyy4{ If je = "*壹圆?" 1 { If je = "*贰圆?" 2 { If je = "*叁圆?" 3 { If je = "*肆圆?" 4 { If je = "*伍圆?" 5 { If je = "*陆圆?" 6 { If je = "*柒圆?" 7 { If je = "*捌圆?" 8 { If je = "*玖元?" 9}}}}}}}}"} }
{ set yyy5 "{ If je = "*壹元??" 1 { If je = "*贰元??" 2 { If je = "*叁元??" 3 { If je = "*肆元??" 4 { If je = "*伍元??" 5 { If je = "*陆元??" 6 { If je = "*柒元??" 7 { If je = "*捌元??" 8 { If je = "*玖元??" 9}}}}}}}}}" }

{ set yyy6 "{ If je = "*壹圆??" 1 { If je = "*贰圆??" 2 { If je = "*叁圆??" 3 { If je = "*肆圆??" 4 { If je = "*伍圆??" 5 { If je = "*陆圆??" 6 { If je = "*柒圆??" 7 { If je = "*捌圆??" 8 { If je = "*玖元??" 9}}}}}}}}}" }
{ set yyy7 "{ If je = "*壹元???" 1 { If je = "*贰元???" 2 { If je = "*叁元???" 3 { If je = "*肆元???" 4 { If je = "*伍元???" 5 { If je = "*陆元???" 6 { If je = "*柒元???" 7 { If je = "*捌元???" 8 { If je = "*玖元???" 9}}}}}}}}}"}

{ set yyy8 "{ If je = "*壹圆???" 1 { If je = "*贰圆???" 2 { If je = "*叁圆???" 3 { If je = "*肆圆???" 4 { If je = "*伍圆???" 5 { If je = "*陆圆???" 6 { If je = "*柒圆???" 7 { If je = "*捌圆???" 8 { If je = "*玖元???" 9}}}}}}}}}" }
{ set yyy9 "{ If je = "*壹元????" 1 { If je = "*贰元????" 2 { If je = "*叁元????" 3 { If je = "*肆元????" 4 { If je = "*伍元????" 5 }}}}}"}

{ set yyy10 "{ If je = "*壹圆????" 1 { If je = "*贰圆????" 2 { If je = "*叁圆????" 3 { If je = "*肆圆????" 4 { If je = "*伍圆????" 5 { If je = "*陆圆????" 6 { If je = "*柒圆????" 7 { If je = "*捌圆????" 8 { If je = "*玖元????" 9}}}}}}}}}" }
{ set jjj1 "{ If je = "壹角*" 1 { If je = "贰角*" 2 { If je = "叁角*" 3 { If je = "肆角*" 4 { If je = "伍角*" 5 { If je = "陆角*" 6 { If je = "柒角*" 7 { If je = "捌角*" 8 { If je = "玖角*" 9}}}}}}}}}"}

{ set jjj2 "{ If je = "壹角" 1 { If je = "贰角" 2 { If je = "叁角" 3 { If je = "肆角" 4 { If je = "伍角" 5 { If je = "陆角" 6 { If je = "柒角" 7 { If je = "捌角" 8 { If je = "玖角" 9}}}}}}}}}" }
{ set jjj3 "{ If je = "*壹角?" 1 { If je = "*贰角?" 2 { If je = "*叁角?" 3 { If je = "*肆角?" 4 { If je = "*伍角?" 5 { If je = "*陆角?" 6 { If je = "*柒角?" 7 { If je = "*捌角?" 8 { If je = "*玖角?" 9}}}}}}}}}"}

{ set jjj4 "{ If je = "*壹角" 1 { If je = "*贰角" 2 { If je = "*叁角" 3 { If je = "*肆角" 4 { If je = "*伍角" 5 { If je = "*陆角" 6 { If je = "*柒角" 7 { If je = "*捌角" 8 { If je = "*玖角" 9}}}}}}}}}"}
{ set jjj5 "{ If je = "*壹角??" 1 { If je = "*贰角??" 2 { If je = "*叁角??" 3 { If je = "*肆角??" 4 { If je = "*伍角??" 5 { If je = "*陆角??" 6 }}}}}}"}

{ set fff1 "{ If je = "壹分" 1 { If je = "贰分" 2 { If je = "叁分" 3 { If je = "肆分" 4 { If je = "伍分" 5 { If je = "陆分" 6 { If je = "柒分" 7 { If je = "捌分" 8 { If je = "玖分" 9}}}}}}}}}" }
{ set fff2 "{ If je = "*壹分" 1 { If je = "*贰分" 2 { If je = "*叁分" 3 { If je = "*肆分" 4 { If je = "*伍分" 5 { If je = "*陆分" 6 { If je = "*柒分" 7 }}}}}}}"}
{ set xx {=www*10000+(qqq1+qqq2)*1000+(bbb1+bbb2+bbb3+bbb4)*100+(yyy1=0)*(yyy2=0)*(jjj1=0)*(fff1=0)*(sss1+(sss1=0)*(sss2+(sss3<>sss4)*sss3+(sss4<>sss5)*sss4+(sss5<>sss6)*sss5+(sss1<>sss6)*(sss5<>sss6)*sss6))*10+(jjj1=0)*(fff1=0)*(yyy1+yyy2+(yyy1=0)*(yyy2=0)*(yyy3+yyy4+yyy5+yyy6+yyy7+yyy8+yyy8+(yyy1<>yyy9)*(yyy9<>yyy10)*yyy9+(yyy1<>yyy10)*(yyy9<>yyy10)*yyy10))+(fff1=0)*(jjj1+jjj2+jjj3+(jjj4<>jjj5)*jjj4+(jjj1<>jjj5)*jjj5)/10+(fff1+(fff1<>fff2)*fff2)/100} }}

您输入的金额为:{ je \* mergeformat}。转换结果为{ =xx \# 0.00 }。

守柔 · 发表于 2007-12-15 16:54

另一个文档（分两个贴，域代码太长了，呵呵）

注意,"{}"是由Ctrl+F9组合键自动插入的域标志!
域代码:人民币大写转阿拉伯数值
(十万位以内)
请按Ctrl+A选全文并按F9后输入大写金额进行测试。
{ quote
{ASK je "请输入人民币大写金额" \d "玖万贰仟叁佰肆拾伍元陆角柒分"}
{ set www "{ If je = "{ seq wan \* CHINESENUM2 }万*" 1 { If je = "{ seq wan \* CHINESENUM2 }万*" 2 { If je = "{ seq wan \* CHINESENUM2 }万*" 3 { If je = "{ seq wan \* CHINESENUM2 }万*" 4 { If je = "{ seq wan \* CHINESENUM2 }万*" 5 { If je = "{ seq wan \* CHINESENUM2 }万*" 6 { If je = "{ seq wan \* CHINESENUM2 }万*" 7 { If je = "{ seq wan \* CHINESENUM2 }万*" 8 { If je = "{ seq wan \* CHINESENUM2 }万*" 9}}}}}}}}}" }
{ set qqq1 "{ If je = "?万{ seq qian \* CHINESENUM2 }仟*" 1 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 2 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 3 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 4 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 5 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 6 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 7 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 8 { If je = "?万{ seq qian \* CHINESENUM2 }仟*" 9 { If je = "?万零*" 0}}}}}}}}}}"}
{ set qqq2 "{ If je = "{ seq qian2 \* CHINESENUM2 }仟*" 1 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 2 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 3 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 4 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 5 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 6 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 7 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 8 { If je = "{ seq qian2 \* CHINESENUM2 }仟*" 9 }}}}}}}}}"}
{ set bbb1 "{ If je = "{ seq bai \* CHINESENUM2 }佰*" 1 { If je = "{ seq bai \* CHINESENUM2 }佰*" 2 { If je = "{ seq bai \* CHINESENUM2 }佰*" 3 { If je = "{ seq bai \* CHINESENUM2 }佰*" 4 { If je = "{ seq bai \* CHINESENUM2 }佰*" 5 { If je = "{ seq bai \* CHINESENUM2 }佰*" 6 { If je = "{ seq bai \* CHINESENUM2 }佰*" 7 { If je = "{ seq bai \* CHINESENUM2 }佰*" 8 { If je = "{ seq bai \* CHINESENUM2 }佰*" 9}}}}}}}}}" }
{ set bbb2 "{ If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 1 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 2 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 3 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 4 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 5 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 6 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 7 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 8 { If je = "??{ seq bai2 \* CHINESENUM2 }佰*" 9}}}}}}}}}" }
{ set bbb3 "{ If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 1 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 2 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 3 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 4 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 5 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 6 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 7 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 8 { If je = "???{ seq bai3 \* CHINESENUM2 }佰*" 9}}}}}}}}}" }
{ set bbb4 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 1 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 2 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 3 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 4 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 5 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 6 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 7 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 8 { If je = "????{ seq bai4 \* CHINESENUM2 }佰*" 9}}}}}}}}} }
{ set sss1 "{ If je = "{ seq shi \* CHINESENUM2 }拾*" 1 { If je = "{ seq shi \* CHINESENUM2 }拾*" 2 { If je = "{ seq shi \* CHINESENUM2 }拾*" 3 { If je = "{ seq shi \* CHINESENUM2 }拾*" 4 { If je = "{ seq shi \* CHINESENUM2 }拾*" 5 { If je = "{ seq shi \* CHINESENUM2 }拾*" 6 { If je = "{ seq shi \* CHINESENUM2 }拾*" 7 { If je = "{ seq shi \* CHINESENUM2 }拾*" 8 { If je = "{ seq shi \* CHINESENUM2 }拾*" 9}}}}}}}}}" }
{ set sss2 "{ If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 1 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 2 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 3 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 4 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 5 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 6 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 7 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 8 { If je = "*{ seq shi2 \* CHINESENUM2 }拾??" 9}}}}}}}}}" }
{ set sss3 "{ If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 1 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 2 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 3 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 4 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 5 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 6 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 7 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 8 { If je = "*{ seq shi3 \* CHINESENUM2 }拾???" 9}}}}}}}}}" }
{ set sss4 "{ If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 1 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 2 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 3 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 4 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 5 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 6 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 7 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 8 { If je = "*{ seq shi4 \* CHINESENUM2 }拾????" 9}}}}}}}}}" }
{ set sss5 "{ If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 1 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 2 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 3 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 4 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 5 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 6 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 7 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 8 { If je = "*{ seq shi5 \* CHINESENUM2 }拾?????" 9}}}}}}}}}" }

守柔 · 发表于 2007-12-15 16:58

{ set sss6 "{ If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 1 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 2 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 3 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 4 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 5 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 6 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 7 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 8 { If je = "*{ seq shi6 \* CHINESENUM2 }拾??????" 9}}}}}}}}}" }
{ set yyy1 "{ If je = "{ seq yuan \* CHINESENUM2 }元*" 1 { If je = "{ seq yuan \* CHINESENUM2 }元*" 2 { If je = "{ seq yuan \* CHINESENUM2 }元*" 3 { If je = "{ seq yuan \* CHINESENUM2 }元*" 4 { If je = "{ seq yuan \* CHINESENUM2 }元*" 5 { If je = "{ seq yuan \* CHINESENUM2 }元*" 6 { If je = "{ seq yuan \* CHINESENUM2 }元*" 7 { If je = "{ seq yuan \* CHINESENUM2 }元*" 8 { If je = "{ seq yuan \* CHINESENUM2 }元*" 9}}}}}}}}}" }
{ set yyy2 "{ If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 1 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 2 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 3 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 4 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 5 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 6 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 7 { If je = "{ seq yuan2 \* CHINESENUM2 }圆*" 8 { If je = "{ seq yuan2 \* CHINESENUM2 }元*" 9}}}}}}}}}" }
{ set yyy3 "{ If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 1 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 2 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 3 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 4 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 5 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 6 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 7 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 8 { If je = "*{ seq yuan3 \* CHINESENUM2 }元?" 9}}}}}}}}}" }
{ set yyy4{ If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 1 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 2 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 3 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 4 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 5 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 6 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 7 { If je = "*{ seq yuan4 \* CHINESENUM2 }圆?" 8 { If je = "*{ seq yuan4 \* CHINESENUM2 }元?" 9}}}}}}}}"} }
{ set yyy5 "{ If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 1 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 2 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 3 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 4 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 5 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 6 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 7 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 8 { If je = "*{ seq yuan5 \* CHINESENUM2 }元??" 9}}}}}}}}}" }
{ set yyy6 "{ If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 1 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 2 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 3 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 4 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 5 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 6 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 7 { If je = "*{ seq yuan6 \* CHINESENUM2 }圆??" 8 { If je = "*{ seq yuan6 \* CHINESENUM2 }元??" 9}}}}}}}}}" }
{ set yyy7 "{ If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 1 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 2 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 3 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 4 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 5 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 6 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 7 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 8 { If je = "*{ seq yuan7 \* CHINESENUM2 }元???" 9}}}}}}}}}"}
{ set yyy8 "{ If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 1 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 2 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 3 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 4 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 5 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 6 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 7 { If je = "*{ seq yuan8 \* CHINESENUM2 }圆???" 8 { If je = "*{ seq yuan8 \* CHINESENUM2 }元???" 9}}}}}}}}}" }
{ set yyy9 "{ If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 1 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 2 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 3 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 4 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 5 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 6 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 7 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 8 { If je = "*{ seq yuan9 \* CHINESENUM2 }元????" 9}}}}}}}}}"}
{ set yyy10 "{ If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 1 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 2 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 3 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 4 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 5 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 6 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 7 { If je = "*{ seq yuan10 \* CHINESENUM2 }圆????" 8 { If je = "*{ seq yuan10 \* CHINESENUM2 }元????" 9}}}}}}}}}" }
{ set jjj1 "{ If je = "{ seq jiao \* CHINESENUM2 }角*" 1 { If je = "{ seq jiao \* CHINESENUM2 }角*" 2 { If je = "{ seq jiao \* CHINESENUM2 }角*" 3 { If je = "{ seq jiao \* CHINESENUM2 }角*" 4 { If je = "{ seq jiao \* CHINESENUM2 }角*" 5 { If je = "{ seq jiao \* CHINESENUM2 }角*" 6 { If je = "{ seq jiao \* CHINESENUM2 }角*" 7 { If je = "{ seq jiao \* CHINESENUM2 }角*" 8 { If je = "{ seq jiao \* CHINESENUM2 }角*" 9}}}}}}}}}"}
{ set jjj2 "{ If je = "{ seq jiao2 \* CHINESENUM2 }角" 1 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 2 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 3 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 4 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 5 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 6 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 7 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 8 { If je = "{ seq jiao2 \* CHINESENUM2 }角" 9}}}}}}}}}" }
{ set jjj3 "{ If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 1 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 2 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 3 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 4 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 5 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 6 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 7 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 8 { If je = "*{ seq jiao3 \* CHINESENUM2 }角?" 9}}}}}}}}}"}
{ set jjj4 "{ If je = "*{ seq jiao4 \* CHINESENUM2 }角" 1 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 2 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 3 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 4 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 5 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 6 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 7 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 8 { If je = "*{ seq jiao4 \* CHINESENUM2 }角" 9}}}}}}}}}"}
{ set jjj5 "{ If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 1 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 2 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 3 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 4 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 5 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 6 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 7 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 8 { If je = "*{ seq jiao5 \* CHINESENUM2 }角??" 9}}}}}}}}}"}
{ set fff1 "{ If je = "{ seq fen \* CHINESENUM2 }分" 1 { If je = "{ seq fen \* CHINESENUM2 }分" 2 { If je = "{ seq fen \* CHINESENUM2 }分" 3 { If je = "{ seq fen \* CHINESENUM2 }分" 4 { If je = "{ seq fen \* CHINESENUM2 }分" 5 { If je = "{ seq fen \* CHINESENUM2 }分" 6 { If je = "{ seq fen \* CHINESENUM2 }分" 7 { If je = "{ seq fen \* CHINESENUM2 }分" 8 { If je = "{ seq fen \* CHINESENUM2 }分" 9}}}}}}}}}" }
{ set fff2 "{ If je = "*{ seq fen2 \* CHINESENUM2 }分" 1 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 2 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 3 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 4 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 5 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 6 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 7 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 8 { If je = "*{ seq fen2 \* CHINESENUM2 }分" 9}}}}}}}}}"}
{ set xx {=www*10000+(qqq1+qqq2)*1000+(bbb1+bbb2+bbb3+bbb4)*100+(yyy1=0)*(yyy2=0)*(jjj1=0)*(fff1=0)*(sss1+(sss1=0)*(sss2+(sss3<>sss4)*sss3+(sss4<>sss5)*sss4+(sss5<>sss6)*sss5+(sss1<>sss6)*(sss5<>sss6)*sss6))*10+(jjj1=0)*(fff1=0)*(yyy1+yyy2+(yyy1=0)*(yyy2=0)*(yyy3+yyy4+yyy5+yyy6+yyy7+yyy8+yyy8+(yyy1<>yyy9)*(yyy9<>yyy10)*yyy9+(yyy1<>yyy10)*(yyy9<>yyy10)*yyy10))+(fff1=0)*(jjj1+jjj2+jjj3+(jjj4<>jjj5)*jjj4+(jjj1<>jjj5)*jjj5)/10+(fff1+(fff1<>fff2)*fff2)/100} }}
您输入的金额为:{ je \* mergeformat}。转换结果为{ =xx \# 0.00 }。

Grover · 发表于 2007-12-15 23:08

哈哈，sylun兄的研究精神令在下十分PF。

XUZHANCHENG · 发表于 2008-2-25 16:02

让人眼花缭乱的程序

lisa.peng · 发表于 2008-5-13 13:54

试了为什么不灵呢，数对应不上啊

wshcw · 发表于 2008-8-22 00:14

现在WORD里就是缺少人民币大写转数字的宏了.望守柔大师能补上(wps里已有"大写转数字"这样的菜单了).

[此贴子已经被作者于2008-8-22 0:16:36编辑过]

byl2005 · 发表于 2010-6-9 08:52

原帖由 wshcw 于 2008-8-22 00:14 发表
现在WORD里就是缺少人民币大写转数字的宏了.望守柔大师能补上(wps里已有"大写转数字"这样的菜单了).
[此贴子已经被作者于2008-8-22 0:16:36编辑过]

希望早日出现

wjhere · 发表于 2011-3-19 11:58

学习sylun兄的作品。

		自动登录	找回密码
密码			免费注册