求助:WORD2010版,小写数字(>
金额大写中,对于整数金额,可以直接通过【插入】/【数字】命令,在打开的【数字】对话框中选取为“壹,贰,叁…”数字类型(设置数字格式)即可实现。对于小数部分,原理也是设置数字格式,只是把角分数据提取出来后再设置其格式。
金额大写转换的域代码:
{ SET Data { ={ Quote "A{ ={ SEQ Z }+1 }" } } }{ SET JinE { =ABS(Data) \#"0。 00" } }{ SET Yuan { =INT(JinE) } }{ SET Jiao { =INT(JinE*10-Yuan*10) } }{ SET Fen { =INT(JinE*100...全部
金额大写中,对于整数金额,可以直接通过【插入】/【数字】命令,在打开的【数字】对话框中选取为“壹,贰,叁…”数字类型(设置数字格式)即可实现。对于小数部分,原理也是设置数字格式,只是把角分数据提取出来后再设置其格式。
金额大写转换的域代码:
{ SET Data { ={ Quote "A{ ={ SEQ Z }+1 }" } } }{ SET JinE { =ABS(Data) \#"0。
00" } }{ SET Yuan { =INT(JinE) } }{ SET Jiao { =INT(JinE*10-Yuan*10) } }{ SET Fen { =INT(JinE*100-Yuan*100-Jiao*10) } }{ IF Data < 0 "负" "" }{ IF Yuan = JinE "{ =Yuan \*CHINESENUM2 }圆整" { IF Fen = 0 "{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角整" { IF Jiao = 0 "{ =Yuan \*CHINESENUM2 }圆{ =Fen \*CHINESENUM2 }分" "{ =Yuan \*CHINESENUM2 }圆{ =Jiao \*CHINESENUM2 }角{ =Fen \*CHINESENUM2 }分" }} }。收起