[已解决]数字大小写

柳冰云

怎样把小写转换成大写

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-8-15 16:29

1. Function Tdx(M)
   
2.     Tdx = Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0;负 0. 0 0;   ")), ["[DBnum2]"&{0,"","圆0角;;圆零","0分;;整"}]), a), "零圆零", a), "零圆", a), "零整", "整")
   
3. End Function

复制代码

试试这个自定义函数

跳转到最佳答案楼层

liuguansky

1. Function Tdx(M)
   
2.     Tdx = Replace(Replace(Replace(Join(Application.Text(Split(Format(M, " 0. 0 0;负 0. 0 0;   ")), ["[DBnum2]"&{0,"","圆0角;;圆零","0分;;整"}]), a), "零圆零", a), "零圆", a), "零整", "整")
   
3. End Function

复制代码

试试这个自定义函数

cyjwdit

按下 caps lock