Office中国论坛/Access中国论坛

标题: 请教如何将小写数字转换成大写数字 [打印本页]

作者: tony_wy 时间: 2010-11-30 12:50
标题: 请教如何将小写数字转换成大写数字
如何将小写数字转换成大写数字,不是转换成人民币大写.
例:1000转换为壹零零零

作者: tony_wy 时间: 2010-11-30 13:05
主要是用在打印报表上的,请各位前辈帮我看看，怎么做才好,谢谢了

作者: wanshan 时间: 2010-11-30 13:26
本帖最后由 wanshan 于 2010-11-30 13:38 编辑

替换
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 时间: 2010-11-30 13:33
前辈,是把这个放在模块里吗?

作者: wanshan 时间: 2010-11-30 13:41
放到模块里，建一个模块，复制下面的代码贴进去保存：
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 时间: 2010-11-30 13:52
OK 谢谢了

作者: yyxtj 时间: 2010-12-12 23:57
谢谢，学习了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)