英文货币数字大写转换器

1. 货币数字如何转换大写

首字母大写的Bitcoin用来表示比特币的概念或整个比特币网络本身。例如：“今天我学了些有关Bitcoin协议的内容。”

而没有大写的bitcoin则表示一个记账单位。例如：“我今天转出了10个bitcoin。”该单位通常也简写为BTC或XBT。

莱特币的简写就是“LTC”

2. 英文金额大写，求帮忙

1. SAY US DOLLARS ONE MILLION TWO HUNDRED AND THIRTY FOUR THOUSAND FIVE HUNDRED AND SIXTYSEVEN AND CENTS EIGHTY NINE ONLY

2. SAY US DOLLARS FFIFTY SIX MILLION ONE HUNDRED AND FORTY NINE THOUSAND FIVE HUNDRED AND FORTY TWO ONLY

3. SAY US DOLLARSTHREE MILLION FOUR HUNDRED ANDEIGHR TWO THOUSAND SEVEN HUNDRED AND TWENTY ONE AND CENTS FIFTY ONLY

   英文中金额的大写，由三个部分组成：“SAY + 货币”+ 大写数字（amount in words）+ ONLY(相当于我们的“整”)。 和汉语不同的是，数字中有零不用写出来， 而是把数字读法写出来即可。

3. 数字转换英文大写! 欧元449070 翻译成英文字母大写,

EURO FOUR HUNDRED AND FORTY-NINE THOUSAND AND SEVENTY

4. 人民币大写在英语中怎么翻，比如.比如人民币七十九

2733.4 人民币:
Chinese Yuan Two Thousand Seven Hundred and Thirty-Three and Forty Fen
2733.4 美元:
US Dollars Two Thousand Seven Hundred and Thirty-Three and Forty Cents

RMB393602.4
Chinese Yuan Three Hundred and Ninty-Three Thousand Six Hundred and Two and Forty Fen
USD 393602.4
US Dollars Three Hundred and Ninty-Three Thousand Six Hundred and Two and Forty Cents

补充说明：人民币的"元角分“都是法定货币单位，但是对于外国货币来说，比”元“小的往往没有跟”角“对应的单位，只有跟”分“对应的单位，比如cent。在这种前提下，在金融英语里，人民币表述翻译成外语时一般”与国际接轨“，直接表述”分“。否则，如果用Jiao的话，如果对方对人民币货币单位不熟悉，有可能会将Jiao误认为人民币的最小单位，造成错误。
另外：数字表述中，千分位之间（即thousand-hundred, million-thousand, billion-million)不用 And，千分位内部（即百位和十位之间）要加And

5. 如何在excel中设置公式将数字转换为英文大写金额

使用数字转英文货币大写“自定义函数”，具体使用方法如下：

所需材料：Excel、数字转英文货币大写自定义函数（可通过网络复制粘贴）。

一、首先打开Excel表格文件，按Alt+F11打开VBA窗口，插入一个“模块”。

6. 英文版Excel中如何把数字转换成中文大写金额

用VBA自定义一个大写金额转换的函数，在公式中输入此函数名就可以了。
具体方法：按 Alt+F11 ，在VBA编辑器菜单中点 插入→模块，将下面的函数复制到插入的模块当中，

'===================================================================

Function CChinese(StrEng As String) As String
'将阿拉伯数字转成中文字的程式例如：1560890 转成 "壹佰伍拾陆万零捌佰玖拾"。
'程式限制为不可输入超过16个数字
If Not IsNumeric(StrEng) Or StrEng Like "*.*" Or StrEng Like "*-*" Then
If Trim(StrEng) <> "" Then MsgBox "无效的数字"
CChinese = "": Exit Function
End If
Dim intLen As Integer, intCounter As Integer
Dim strCh As String, strTempCh As String
Dim strSeqCh1 As String, strSeqCh2 As String
Dim strEng2Ch As String
strEng2Ch = "零壹贰叁肆伍陆柒捌玖"
strSeqCh1 = " 拾佰仟 拾佰仟 拾佰仟 拾佰仟"
strSeqCh2 = " 万亿兆"
StrEng = CStr(CDec(StrEng))
intLen = Len(StrEng)
For intCounter = 1 To intLen
strTempCh = Mid(strEng2Ch, Val(Mid(StrEng, intCounter, 1)) + 1, 1)
If strTempCh = "零" And intLen <> 1 Then
If Mid(StrEng, intCounter + 1, 1) = "0" Or (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = ""
End If
Else
strTempCh = strTempCh & Trim(Mid(strSeqCh1, intLen - intCounter + 1, 1))
End If
If (intLen - intCounter + 1) Mod 4 = 1 Then
strTempCh = strTempCh & Mid(strSeqCh2, (intLen - intCounter + 1) \ 4 + 1, 1)
If intCounter > 3 Then
If Mid(StrEng, intCounter - 3, 4) = "0000" Then strTempCh = Left(strTempCh, Len(strTempCh) - 1)
End If
End If
strCh = strCh & Trim(strTempCh)
Next
CChinese = strCh
End Function

'===================================================================

'===================================================================
Function daxie(money As String) As String
'实现货币金额中文大写转换的程序
'程式限制为不可输入超过16个数字
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码
Const letter = "0123456789sbqwy.zjf" '定义汉字缩写
Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆整角分" '定义大写汉字

If CDbl(money) >= 1E+16 Then daxie = "#VALUE!": Exit Function '只能转换一亿亿元以下数目的货币！

x = Format(money, "0.00") '格式化货币
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z" '***元整
Else
y = y & Left(Right(x, 2), 1) & "j" & Right(x, 1) & "f" '*元*角*分
End If
y = Replace(y, "0q", "0") '避免零千(如：40200肆万零千零贰佰)
y = Replace(y, "0b", "0") '避免零百(如：41000肆万壹千零佰)
y = Replace(y, "0s", "0") '避免零十(如：204贰佰零拾零肆)

y = Replace(y, "0j", "0") '避免零角
y = Replace(y, "0f", "") '避免零分

Do While y <> Replace(y, "00", "0")
y = Replace(y, "00", "0") '避免双零(如：1004壹仟零零肆)
Loop
y = Replace(y, "0y", "y") '避免零亿(如：210亿 贰佰壹十零亿)
y = Replace(y, "0w", "w") '避免零万(如：210万 贰佰壹十零万)
y = IIf(x < 0.1, Right(y, Len(y) - 3), y) '避免零几分(如：0.01零壹分；0.04零肆分)
y = IIf(Len(x) = 5 And Left(y, 1) = "1", Right(y, Len(y) - 1), y) '避免壹十(如：14壹拾肆；10壹拾)
y = IIf(Len(x) = 4, Replace(y, "0.", ""), Replace(y, "0.", ".")) '避免零元(如：20.00贰拾零圆；0.12零圆壹角贰分)

For i = 1 To 19
y = Replace(y, Mid(letter, i, 1), Mid(upcase, i, 1)) '大写汉字
Next
daxie = y
End Function
'===================================================================

回到Excel工作表中，若要转化A1单元格的数字，则可在其他任意单元格中输入公式 =CChinese(A1)。要转换成大写金额，则可在其他任意单元格中输入公式 =daxie(A1)。