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

aku · 发表于 2006-12-21 08:45

谢谢，正需要！！

liangyuhong · 发表于 2006-12-21 09:06

谢谢分享!

shinshin · 发表于 2007-1-10 18:16

各位大哥大姐们:

你们好!

小弟想请教一下,数字转换为美圆大写怎么改?美圆是没有角的!

例如:56987.99------伍万陆仟玖佰捌拾柒美元玖拾玖美分

万分感激!

[em04]

Samsea · 发表于 2007-1-10 19:17

试试看（从原函数修改）：

' 试编写数字金额转中文大写的函数
' lin jin xiang 08-07-2004

Function DaXie(ByVal Num)       ' 人民币中文大写函数
    Application.Volatile True
    Place = "分拾元拾佰仟万拾佰仟亿拾佰仟万"
    Dn = "壹贰叁肆伍陆柒捌玖"
    D1 = "分零元零零零万零零零亿零零零万"
    If Num < 0 Then FuHao = "（负）"

................

    Next
     NumC = Replace(NumC, "元", "美元")
     NumC = Replace(NumC, "元分", "元整")
     NumC = Replace(NumC, "分", "美分")
     NumC = Replace(NumC, "元零", "元")
    DaXie = FuHao & Trim(NumC)
End Function

shinshin · 发表于 2007-1-11 09:55

谢谢Samsea大哥!数字转换为美圆大写我觉得用VBA比较麻烦,能否直接用公式呢?我这里有个数字转换为人民币大写的但不知道怎么改,你能帮我该一下吗?

=IF((A4-INT(A4))=0,TEXT(A4,"[DBNUM2]")&"元整",IF(INT(A4*10)-17*10=0,TEXT(INT(A4),"[DBNUM2]")&"元"&TEXT((INT(A4*10)-INT(A4)*10),"[DBNUM2]")&"角整",TEXT(INT(A4),"[DBNUM2]")&"元"&IF(INT(A4*10)-INT(A4)*10=0,"零",TEXT(INT(A4*10)-INT(A4)*10,"[DBNUM2]")&"角")&TEXT(RIGHT(A4,1),"[DBNUM2]")&"分"))

shinshin · 发表于 2007-1-11 10:30

例如:US$56987.99------美元伍万陆仟玖佰捌拾柒元玖拾玖分

万分感激!

[em04][em04][em04]

leakeytey · 发表于 2007-3-14 12:23

请问一下如果在英文字母中在加入一个带括号的数字该怎么加呢?

比如说1234

英文转换为One Thousand Two Hundred And Thirty Four (1234) Dollors Only.

麻烦楼主帮忙

jacky1134 · 发表于 2007-3-15 13:07

谢谢

liujy · 发表于 2007-5-29 10:17

谢谢楼主分享!

dollchen · 发表于 2007-6-13 18:11

这个我看过，但是都不符合英文表达，比如123 它的为“One Hundred Twenty-Three”，实际应该为“One Hundred and Twenty-Three”，0它的为“No Dollars and No Cents”，实际为ZERO DOLLARS

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