请教如何将小写数字转换成大写数字

tony_wy

如何将小写数字转换成大写数字,不是转换成人民币大写.
例:1000转换为壹零零零

tony_wy

主要是用在打印报表上的,请各位前辈帮我看看，怎么做才好,谢谢了

wanshan

替换
Private Function Num2Char(x As String) As String
For I = 0 To 9
x = Replace(x, I, Mid$("零壹贰叁肆伍陆柒捌玖", I + 1, 1))
Next I
Num2Char = x
End Function

tony_wy

前辈,是把这个放在模块里吗?

wanshan

放到模块里，建一个模块，复制下面的代码贴进去保存：
public Function Num2Char(x As String) As String
For I = 0 To 9
x = Replace(x, I, Mid$("零壹贰叁肆伍陆柒捌玖", I + 1, 1))
Next I
Num2Char = x
End Function

在需要大写的文本框的控件来源里输入：=Num2Char([要转换的字符串、控件名或变量])  就可以了

tony_wy

OK 谢谢了

yyxtj

谢谢，学习了