[原创]与[推荐]数字金额转换中文大写与英文字母

quanhongwei · 发表于 2006-1-21 15:28

谢楼主!!!

yaojil · 发表于 2006-3-1 12:57

谢谢楼主无私分享

caidong888 · 发表于 2006-3-2 23:34

谢谢，高手

dxs_911 · 发表于 2006-3-30 15:46

大家不知道如何读105000这个大写的，楼主的读法好象是壹拾万伍仟哦，是不是该考虑一下国人都好象读作壹拾万零五仟。能否重新考虑一下您的算法，谢谢。

YUHONG222 · 发表于 2006-6-25 12:12

QUOTE:

以下是引用Samsea在2004-6-23 18:00:00的发言：

偶然得到西人编写的数字金额转英文字母的函数，并安此思路自己试编写了数字金额转中文大写的函数，一并提供给大家。如果认为有用请给个推荐，让有需要的人可以参考。

跟据18楼FangJian指出的情况作出更改重新上传：

怎么在新工作薄中用这个函数,加载宏里没这个函数

Samsea · 发表于 2006-6-25 12:35

QUOTE:

以下是引用YUHONG222在2006-6-25 12:12:00的发言：

怎么在新工作薄中用这个函数,加载宏里没这个函数

可把你要的函数复制到你的新工作薄vba中。

山中无虎 · 发表于 2006-8-12 00:39

请教楼主Samsea:如果要将123.45转换成这样的大写英文:ONE HUNDRED AND TWENTY THREE,CENTS FORTY FIVE. 要求:1,全部大写;2,如果没有小数,在句末加"ONLY."(如:123 ONE HUNDRED AND TWENTY THREE ONLY.);3,每句中的逗号或句号都不能遗漏,英文状态的.谢谢!!!俺也急用.

希望其他高手也出招帮帮俺!谢谢!

Samsea · 发表于 2006-8-12 09:11

1.可自己把字母改成大写。

2.3.可改写相应代码：

    Select Case Cents
        Case ""
            Cents = " Only."
        Case "One"
            Cents = " ,Cent One."
        Case Else
            Cents = ",Cents " & Cents & "."
    End Select
其他：Dollars 为什么不用？百与十之间为什么加 and.

山中无虎 · 发表于 2006-8-12 19:26

谢谢Samsea! 我要用在英文单证上的.它们的习惯是:SAY USA DOLLARS ?????ONLY 或 SAY USA DOLLARS ????? ,CENTS ???. 英文里没有"万"&"十万"为单位的,"万"&"十万"是用"TEN THOUSAND or ONE HUNDRED THOUSAND " 而百位数和十位数之间要有个"and".能够怎样完善您所发的那个附件吗?万分感激!!

Samsea · 发表于 2006-8-13 14:41

QUOTE:

以下是引用山中无虎在2006-8-12 19:26:00的发言：

谢谢Samsea! 我要用在英文单证上的.它们的习惯是:SAY USA DOLLARS ?????ONLY 或 SAY USA DOLLARS ????? ,CENTS ???. 英文里没有"万"&"十万"为单位的,"万"&"十万"是用"TEN THOUSAND or ONE HUNDRED THOUSAND " 而百位数和十位数之间要有个"and".能够怎样完善您所发的那个附件吗?万分感激!!

试改编数字金额转英文字母的函数。不知是否能达到你的要求。

ljxC6ulz.zip (21.24 KB, 下载次数: 255)

		自动登录	找回密码
密码			免费注册

[原创]与[推荐]数字金额转换中文大写与英文字母

回复：（Samsea）[原创]与[推荐]数字金额转换中文大写...