设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2753|回复: 10
打印 上一主题 下一主题

[模块/函数] 中文大写金额转阿拉伯数字

[复制链接]

点击这里给我发消息

跳转到指定楼层
1#
发表于 2016-11-4 10:15:10 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
本帖最后由 轻风 于 2016-11-4 11:37 编辑

这么多年了,只听到有人问阿拉伯数字转中文大写金额,昨天在群里却有人提出相反的要求。因为中文大写金额比较复杂,第一感觉很麻烦。
其实也没那么麻烦,大写金额无非就那么几个中文字,我用最笨的方法从左到右一个个字符循环处理。
函数代码很简单,没有深度。没经过大量测试,不知道结果是否绝对准确,大家帮忙测试下,有错误请告知。-----


本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?注册

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2016-11-4 10:18:14 | 只看该作者
收藏了
回复

使用道具 举报

点击这里给我发消息

3#
发表于 2016-11-4 10:20:53 | 只看该作者
赞一个!原来Access就行,我还远道去看Excel
4#
发表于 2016-11-4 13:06:11 | 只看该作者
赞一个!原来Access就行,我还远道去看Excel
5#
发表于 2016-11-4 13:10:52 | 只看该作者
新鲜
回复

使用道具 举报

6#
发表于 2016-11-4 14:47:51 | 只看该作者
已接近解决问题了,但不是金额大写转小写,而是中文数字转阿拉伯数字。给个示例如下吧,示例中也有转换不了的。
7#
发表于 2016-11-4 14:50:42 | 只看该作者
已接近解决问题了,但不是金额大写转小写,而是中文数字转阿拉伯数字。给个示例如下吧,示例中也有转换不了的。
中文数字        西文数字
九百九十六冊        996
一千冊        1000
一冊        1
一百二冊        102
一千二十七冊        1027
一千四十六冊        1046
一千三百八十七册        1387
一千五百二十四冊        1524
一千五百三十册        1530
一千六百六冊        1606
一千六百八册        1608
一千六百三十冊        1630
一千七百九十七册        1797
五千四百八十六冊        5486
六千二百四十六冊        6246
七千一百八十五冊        7185
一       
5冊       
一百十七冊       
三百十九冊       
一百十冊       
我暂时的解决的办法是提取数据字典公式,及手工处理
DLookUp("数字","数字转换","[中文]='" & Mid([中文数字],1,Len([中文数字])-1) & "'")

点评

中文数字不象国人的习惯用法,是怎么得出的?用于什么场合?  发表于 2016-11-5 15:07
8#
发表于 2016-11-5 15:29:59 | 只看该作者
确实不像中文的语法习惯,我们的习惯是:
102   →   一百零二
3021  → 三千零二十一
。。。。。。。。。为什么都省掉“零”呢?
9#
发表于 2016-11-6 23:33:18 | 只看该作者
roych 发表于 2016-11-5 15:29
确实不像中文的语法习惯,我们的习惯是:
102   →   一百零二
3021  → 三千零二十一

这些中文数字,是从行业古籍图书普查信息系统中导出的,填写极为不规范,随意性太大,同一个数字有几种中文书写表示方法,比如102,其表示有:百零二、一百零二、一百二、102;而120,则有:百二十、一百二十、120;在许多数字权位上不是省零就是省一,而这也符合国人习惯,无法强制规范。所以我的思路是要解决这类问题,第一步就是由程序填补缺失的汉字数字权位,规范化输入的中文数字,然后再将其转化为阿拉伯数字。只是目前问题已变通解决,暂时还没空去做程序完善。

点击这里给我发消息

10#
发表于 2016-11-7 12:05:31 | 只看该作者
非常好,我简单测试一下没有问题
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 19:29 , Processed in 0.220684 second(s), 35 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表