[分享]人民币大写函数TEXT终极版 1行(136字符)

zerowang345

谢谢楼主分享了！！！

abc123

学习，学习，再学习！

烧钱职业

太牛叉了，学习

wshcw

版主：

     请把下面的代码给合并成一个函数,用第2个参数区分[DBNUM1]、[DBNUM2]格式:

Function 汉字(m)
'中文汉字源代码,By ldy
    汉字 = Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), ["[DBnum1]"&{0,"","元0角;;元○","0分;;整"}]), a), "○元○", a), "○元", a), "○整", "整")
End Function
Function dx(m)
'中文大写源代码,By ldy
    dx = Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), ["[DBnum2]"&{0,"","元0角;;元零","0分;;整"}]), a), "零元零", a), "零元", a), "零整", "整")
End Function

ldy

[DBnum1] 在[  ] 里面 不支持变量，简单点弄吧
Function 汉字(m, Optional t  =0)
If t Then
    汉字 = Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), ["[DBnum2]"&{0,"","元0角;;元零","0分;;整"}]), a), "零元零", a), "零元", a), "零整", "整")
Else
    汉字 = Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), ["[DBnum1]"&{0,"","元0角;;元○","0分;;整"}]), a), "○元○", a), "○元", a), "○整", "整")
End If
End Function

ldy

想了想，可以合并弄成一行，就是长了点，看起来也晕

Function 汉字(m, Optional i = 2)
汉字 = Replace(Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), Evaluate("""[DBnum" & i & "]""&{0,"""",""元0角;;元零"",""0分;;整""}")), a), "零元零", a), "零元", a), "零整", "整"), "零", IIf(i = 1, "○", "零"))
End Function

调用
msgbox  汉字(1000.03)
msgbox  汉字(1000.03,1)

wshcw

原帖由 ldy 于 2009-6-30 22:47 发表
想了想，可以合并弄成一行，就是长了点，看起来也晕

Function 汉字(m, Optional i = 2)
汉字 = Replace(Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), Evaluate(" ...

谢谢版主,又一次学习了.

wshcw

原帖由 ldy 于 2009-6-30 22:47 发表
想了想，可以合并弄成一行，就是长了点，看起来也晕

Function 汉字(m, Optional i = 2)
汉字 = Replace(Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0;   ")), Evaluate(" ...

第二参数省略时返回[DBNUM2]格式,不省略时参数数字与TEXT函数的格式一样，性质不变。这个更灵活。

jebsee

谢谢楼主分享！！还是不太明白!

gannaijun

心里感觉好，就是不懂怎么用！……55555……

可以用了！！！
再次感谢！！！！！！！！！！！！

[ 本帖最后由 gannaijun 于 2009-7-15 23:41 编辑 ]