英文貨幣數字大寫轉換器

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)。