關(guān)于vb.net格式化金額的信息

求vb金額小寫轉(zhuǎn)為大寫的代碼，帶詳細注釋的！！！！

轉(zhuǎn)自

創(chuàng)新互聯(lián)公司長期為近千家客戶提供的網(wǎng)站建設(shè)服務，團隊從業(yè)經(jīng)驗10年，關(guān)注不同地域、不同群體，并針對不同對象提供差異化的產(chǎn)品和服務；打造開放共贏平臺，與合作伙伴共同營造健康的互聯(lián)網(wǎng)生態(tài)環(huán)境。為修武企業(yè)提供專業(yè)的成都網(wǎng)站制作、網(wǎng)站建設(shè)，修武網(wǎng)站改版等技術(shù)服務。擁有10年豐富建站經(jīng)驗和眾多成功案例,為您定制開發(fā)。

將阿拉伯數(shù)字轉(zhuǎn)換為漢字數(shù)字,支持到百萬億(比如大寫金額)

例子:

Debug.Print UpNumber(-612325646566.46,0,True )

負陸仟壹佰貳拾叁億貳仟伍佰陸拾肆萬陸仟伍佰陸拾陸圓肆角陸分

Debug.Print UpNumber(-125646566.46,1,True )

負一億二千五百六十四萬六千五百六十六元四角六分

Debug.Print UpNumber(-125646566.46,1,flase )

負一億二千五百六十四萬六千五百六十六點四六

Public Function UpNumber(ByVal Number As Double, Optional ByVal Typ As Long, Optional ByVal IsMoney As Boolean) As String

'********************************************************************************

'--------------------------------------------------------------------------------

'將阿拉伯數(shù)字轉(zhuǎn)換為大寫字符串

'--------------------------------------------------------------------------------

'參數(shù)說明:

'Number 待轉(zhuǎn)換的數(shù)字,可以是小數(shù).

'Typ 轉(zhuǎn)換類型,可選值 0,1

'0 轉(zhuǎn)換為零,壹,貳等

'1 轉(zhuǎn)換為一,二,三等

'IsMoney 是否是金額,如果是,則轉(zhuǎn)換為多少元,小數(shù)后轉(zhuǎn)換為多少角,分,反之則轉(zhuǎn)換為類似于"二點三"這種形式

'--------------------------------------------------------------------------------

'返回值說明:

'如果成功,返回轉(zhuǎn)換后的字符串

'如果失敗,返回空字符串

'--------------------------------------------------------------------------------

'注意,由于 Double 類型數(shù)值范圍的原因,此函數(shù)最大只支持到百萬億

'沒有對 Typ 的值進行檢查,如果 Typ 不為 0,1 之一,將會引發(fā)錯誤.

'另,由于 Double 類型數(shù)值范圍的原因,超過百萬億,將不能顯示小數(shù),同樣的超過十萬億只能顯示一個小數(shù),以此類推.

'--------------------------------------------------------------------------------

'********************************************************************************

On Error GoTo Doerr

Dim Result As String '返回值

Dim strNumber As String '文本型的 Number

Dim lngNumberLen As Long '文本型的 Number 的 Len

Dim strTmp As String

Dim strFirst As String, strEnd As String

Dim lngI As Long, lngJ As Long, lngTmp As Long

Dim strNum(10) As String '大寫數(shù)字

Dim strUnit(16) As String '單位,比如十,拾,萬等

Dim strUnitB(2) As String '小數(shù)后的單位

'初始化

Select Case Typ

Case 0

strNum(0) = "零": strNum(1) = "壹": strNum(2) = "貳": strNum(3) = "叁"

strNum(4) = "肆": strNum(5) = "伍": strNum(6) = "陸": strNum(7) = "柒"

strNum(8) = "捌": strNum(9) = "玖"

If IsMoney Then

strUnit(0) = "圓"

strUnitB(0) = "角": strUnitB(1) = "分"

Else

strUnit(0) = "點"

End If

strUnit(1) = "拾": strUnit(2) = "佰": strUnit(3) = "仟": strUnit(4) = "萬"

strUnit(5) = "拾": strUnit(6) = "佰": strUnit(7) = "仟": strUnit(8) = "億"

strUnit(9) = "拾": strUnit(10) = "佰": strUnit(11) = "仟": strUnit(12) = "萬"

strUnit(13) = "拾": strUnit(14) = "佰": strUnit(15) = "仟"

Case 1

strNum(0) = "零": strNum(1) = "一": strNum(2) = "二": strNum(3) = "三"

strNum(4) = "四": strNum(5) = "五": strNum(6) = "六": strNum(7) = "七"

strNum(8) = "八": strNum(9) = "九"

If IsMoney Then

strUnit(0) = "元"

strUnitB(0) = "角": strUnitB(1) = "分"

Else

strUnit(0) = "點"

End If

strUnit(1) = "十": strUnit(2) = "百": strUnit(3) = "千": strUnit(4) = "萬"

strUnit(5) = "十": strUnit(6) = "百": strUnit(7) = "千": strUnit(8) = "億"

strUnit(9) = "十": strUnit(10) = "百": strUnit(11) = "千": strUnit(12) = "萬"

strUnit(13) = "十": strUnit(14) = "百": strUnit(15) = "千"

Case Else

'參數(shù)錯誤

GoTo Errexit

End Select

Result = ""

If Number = 0 Then

If IsMoney Then

Result = strNum(0) strUnit(0) "整"

Else

Result = strNum(0)

End If

Else

If IsMoney Then

strNumber = Trim(str(FormatCurrency(Number, 2, vbTrue, vbFalse, vbFalse))) '保留兩位小數(shù)

Else

strNumber = Trim(str(Number)) '簡單的轉(zhuǎn)換為字符串型

End If

lngNumberLen = Len(strNumber)

If Left(strNumber, 1) = "-" Then '處理負數(shù)

strFirst = "負"

strNumber = Right(strNumber, lngNumberLen - 1)

lngNumberLen = lngNumberLen - 1

Else

strFirst = "" '通常不需要 =""

End If

lngI = InStrRev(strNumber, ".")

If lngI Then

strTmp = Right(strNumber, lngNumberLen - lngI)

If IsMoney Then

strTmp = strTmp "00"

strEnd = "" '通常不需要 =""

For lngJ = 1 To 2

Result = Result strNum(CLng(Mid$(strTmp, lngJ, 1))) strUnitB(lngJ - 1)

Else

strTmp = Right(strNumber, lngNumberLen - lngI)

For lngJ = 1 To lngNumberLen - lngI

Result = Result strNum(CLng(Mid$(strTmp, lngJ, 1)))

End If

strNumber = Left(strNumber, lngI - 1) '去除小數(shù)部分

lngNumberLen = Len(strNumber) '新的字符串長度

Else

If IsMoney Then

strEnd = "整"

Else

strEnd = ""

End If

'以下為主循環(huán)部分

lngI = 0

For lngJ = lngNumberLen To 1 Step -1

lngTmp = CLng(Mid$(strNumber, lngJ, 1))

If lngTmp Then

Result = strNum(lngTmp) strUnit(lngI) Result

Else

If lngI = 0 Or lngI = 4 Or lngI = 8 Or lngI = 12 Then '超過 16 位不支持

Result = strNum(lngTmp) strUnit(lngI) Result

Else

Result = strNum(lngTmp) Result

End If

lngI = lngI + 1

Result = Replace(Result, strNum(0) strNum(0), strNum(0)) '零零", "零

'億零萬零圓", "億圓"

Result = Replace(Result, strUnit(8) strNum(0) strUnit(4) strNum(0) strUnit(0), strUnit(8) strUnit(0))

Result = Replace(Result, strUnit(8) strNum(0) strUnit(4), strUnit(8) strNum(0)) '億零萬, "億零"

Result = Replace(Result, strUnit(4) strNum(0) strUnit(0), strUnit(4) strUnit(0)) '億零萬", "億零

Result = Replace(Result, strNum(0) strUnit(8), strUnit(8)) '零億

Result = Replace(Result, strNum(0) strUnit(4), strUnit(4)) '零萬

Result = Replace(Result, strNum(0) strUnit(0), strUnit(0)) '零圓

Result = Replace(Result, strNum(0) strNum(0), strNum(0)) '零零", "零

If IsMoney Then

Result = strFirst Result strEnd

Else

Result = strFirst Result

If Right(Result, 1) = strUnit(0) Then Result = Left(Result, Len(Result) - 1) '去除最后一個 "點"

End If

Complete:

GoTo Quit

Doerr:

Errexit:

Result = ""

Quit:

UpNumber = Result

End Function

vb保留小數(shù)點后2位怎么編寫？

VB用Format 函數(shù)即可實現(xiàn)。

Format 函數(shù)，返回 Variant (String)，其中含有一個表達式，它是根據(jù)格式表達式中的指令來格式化的。

Print Format(3.1415926, "#.##")

*#：表示一個數(shù)字位。#的個數(shù)決定了顯示區(qū)段的長度。如果要顯示的數(shù)值的位數(shù)小于格式字符串指定的區(qū)段長度，則該數(shù)值靠區(qū)段的左端顯示。如果要顯示的數(shù)值的位數(shù)大于指定的區(qū)段長度，則數(shù)值照原樣顯示。要顯示多位，只需要設(shè)置數(shù)字位數(shù)即可，例如：

Print format(3.14159262654321,”#.#######”)

顯示：3.1415926

vb.net 如何把大寫金額轉(zhuǎn)換成阿拉伯數(shù)字金額？

Private Sub Text2_Change() '大寫金額轉(zhuǎn)換成阿拉伯數(shù)字金額

Dim i As Integer

Dim j As Integer

Dim myint As Integer

Dim myint1 As Integer

Dim mydoub As Double

Dim mystr As String

Dim mystr1 As String

Dim mystr2 As String

Dim mystr3 As String

Dim mystr4 As String

Dim money As Long

Dim money1 As Integer

Dim money2 As Long

mystr = Text2.Text

myint = InStr(mystr, ".")

If myint = 0 Then

mystr = Text2.Text

Else

mystr3 = Right(Text2.Text, Len(Text2.Text) - myint)

If mystr3 "" Then '轉(zhuǎn)換小數(shù)位

mystr4 = Left(mystr3, 1)

mystr3 = Right(mystr3, Len(mystr3) - 1)

If mystr4 "0" Then

mystr2 = mystr2 + setdata(Val(mystr4)) + "角"

End If

If mystr3 "" Then

mystr4 = Left(mystr3, 1)

mystr2 = mystr2 + setdata(Val(mystr4)) + "分"

End If

mystr = Left(Text2.Text, myint - 1)

End If

j = Len(mystr)

For i = 1 To Len(mystr) '轉(zhuǎn)換整數(shù)位

money2 = Left(mystr, i)

money1 = Right(money2, 1)

If money1 = 0 Then

If j = 5 Then

If Right(mystr1, 1) "萬" Then mystr1 = mystr1 "萬"

Else

If Right(mystr1, 1) "零" And Right(money, j) 0 Then mystr1 = mystr1 "零"

End If

Else

mystr1 = mystr1 setdata(money1) + chang(j)

End If

j = j - 1

Next i

Text1.Text = mystr1 "元" mystr2 '顯示大寫

End Sub

VB.NET格式輸出函數(shù)format怎么用？

果在格式化數(shù)字時沒有指定 format，F(xiàn)ormat 會提供與 Str 函數(shù)類似的功能

' 如果沒有指定格式，則返回字符串。

MyStr = Format(23) ' 返回 "23"。

' 用戶自定義的格式。

MyStr = Format(5459.4, "##,##0。00") ' 返回 "5,459.40"。

MyStr = Format(334。9, "###0。00") ' 返回 "334.90"。

MyStr = Format(5, "0。00%") ' 返回 "500.00%"。

MyStr = Format("HELLO", "") ' 返回 "hello"。

MyStr = Format("This is it", "") ' 返回 "THIS IS IT

vb.net 如何用format轉(zhuǎn)換小數(shù)成整數(shù)

直接用int就可以了。

int(2310.125)=2310

如果需要自定義格式輸出,就要用tostring方法，比如：

2310.231.tostring("0")的結(jié)果就是2310。

如果你要去掉個位數(shù)，看來只有（2310.231/10).tostring("0")了。

詳細的ToString里面的參數(shù)，請看MSDN。我查了一下，有，地址是：

vb.net中format的使用

format(常量或變量或表達式, "格式化參數(shù)")

0.00% 以百分比顯示小數(shù)點后面固定 2 位

1 - 100%

5 - 500%

0.5 - 50%

0.05 - 5%

標題名稱：關(guān)于vb.net格式化金額的信息
URL分享：http://www.xueling.net.cn/article/hopepc.html

老熟女激烈的高潮_日韩一级黄色录像_亚洲1区2区3区视频_精品少妇一区二区三区在线播放_国产欧美日产久久_午夜福利精品导航凹凸

重慶分公司，新征程啟航

關(guān)于vb.net格式化金額的信息

求vb金額小寫轉(zhuǎn)為大寫的代碼，帶詳細注釋的！！！！

vb保留小數(shù)點后2位怎么編寫？

vb.net 如何把大寫金額轉(zhuǎn)換成阿拉伯數(shù)字金額？

VB.NET格式輸出函數(shù)format怎么用？

vb.net 如何用format轉(zhuǎn)換小數(shù)成整數(shù)

vb.net中format的使用

其他資訊