设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
楼主: admin
打印 上一主题 下一主题

[基础应用] 将键入的阿拉伯数字自动转换成人民币大写金额

[复制链接]
11#
发表于 2005-1-13 00:42:00 | 只看该作者
是不是很容易

本帖子中包含更多资源

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

x
12#
发表于 2005-1-15 00:34:00 | 只看该作者
得了。这样以后方便多了。3Q[em02]
13#
发表于 2005-2-4 20:12:00 | 只看该作者
不错!可惜的是书写不正规!负数,整字不能体现!
14#
发表于 2005-2-12 00:50:00 | 只看该作者


本帖子中包含更多资源

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

x
15#
发表于 2005-2-19 22:39:00 | 只看该作者
呵呵!!这是我请教过的。他们的答复好下!! '该函数源码取自网络,略作修改而成 钟跃勇

Public Function BigNum(小写数字 As Currency)

  Application.Volatile

  If 小写数字 = 0 Then

    BigNum = "零元整"

  Else

    Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"

    Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"

    BigNum = ""

    sNum = Trim(Str(Int(Round(小写数字, 2) * 100)))

      For i = 1 To Len(sNum) '逐位转换

        BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)

      Next i

      For i = 0 To 11 '去掉多余的零

        BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))

      Next i

   End If

End Function

16#
发表于 2005-2-27 22:28:00 | 只看该作者
不用这么麻烦,选定单元格,点击右键选中设置单元格格式,点“数字”,“特殊”“类型”“中文大写数字”。就可以了。
17#
发表于 2005-3-4 03:34:00 | 只看该作者
自定义函数不清BIGNUM,保存为宏模块,加载宏,即可使用,公式=BIGNUM(number1)

Public Function BigNum(小写数字 As Currency)

  Application.Volatile

  If 小写数字 = 0 Then

    BigNum = "零元整"

  Else

    Const cNum = "零壹贰叁肆伍陆柒捌玖-万仟佰拾亿仟佰拾万仟佰拾元角分"

    Const cCha = "零仟零佰零拾零零零零零亿零万零元亿万零角零分零整-零零零零零亿万元亿零整整"

    BigNum = ""

    sNum = Trim(Str(Int(Round(小写数字, 2) * 100)))

      For i = 1 To Len(sNum) '逐位转换

        BigNum = BigNum + Mid(cNum, (Mid(sNum, i, 1)) + 1, 1) + Mid(cNum, 26 - Len(sNum) + i, 1)

      Next i

      For i = 0 To 11 '去掉多余的零

        BigNum = Replace(BigNum, Mid(cCha, i * 2 + 1, 2), Mid(cCha, i + 26, 1))

      Next i

   End If

End Function
18#
发表于 2006-2-8 17:52:00 | 只看该作者
楼上的我看不懂,我以前学的全部忘了,好伤心!!
19#
发表于 2006-8-1 06:36:00 | 只看该作者
我试试17楼的![em01][em01]
20#
发表于 2006-9-1 17:30:00 | 只看该作者
16楼的方法我试了一下,结果是:



<COLGROUP>

<COL style="WIDTH: 123pt; mso-width-source: userset; mso-width-alt: 5248" width=164>





壹佰贰拾叁.伍
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-14 14:38 , Processed in 0.081129 second(s), 32 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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