求大写金额转小写金额的函数

ljy6963 · 发表于 2007-7-19 19:06:00

我单位原来数据库是大写金额，现想转一次性换成小写金额，恳请给个函数给我，谢谢！

谢健 · 发表于 2007-7-19 19:18:00

没有这个函数，要用很长的代码来实现。

方漠 · 发表于 2007-7-20 01:01:00

<

>可以考虑用REPLACE函数写个,提示如下:
<

>Function ChangeNo(StrNo As String) As String
<

>StrNo = Replace(StrNo, "壹", "1") StrNo = Replace(StrNo, "贰", "2") '........
End Function

hi-wzj · 发表于 2007-7-20 22:46:00

不行的,因为会有"壹千元整"这样的数据出现

帐号		自动登录	找回密码
密码			注册

[Access本身] 求大写金额转小写金额的函数

群介绍
主题无相 (随机显示版	同地区群块其他地区)