Shulou(Shulou.com)06/03 Report--

This article mainly shows you "VBS how to achieve digital to English", the content is easy to understand, clear, hope to help you solve your doubts, the following let the editor lead you to study and learn "VBS how to achieve digital to English" this article.

How to create a sample function named SpellNumber

Start Microsoft Excel.

Press Alt+F11 to start the Visual Basic editor.

On the insert menu, click Module.

Type the following code in the module table.

The copy code is as follows:

Option Explicit

'Main Function

Function SpellNumber (ByVal MyNumber)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place (9) As String

Place (2) = "Thousand"

Place (3) = "Million"

Place (4) = "Billion"

Place (5) = "Trillion"

'String representation of amount.

MyNumber = Trim (Str (MyNumber))

'Position of decimal place 0 if none.

DecimalPlace = InStr (MyNumber, ".")

'Convert cents and set MyNumber to dollar amount.

If DecimalPlace > 0 Then

Cents = GetTens (Left (Mid (MyNumber, DecimalPlace + 1) & _

"00", 2))

MyNumber = Trim (Left (MyNumber, DecimalPlace-1))

End If

Count = 1

Do While MyNumber ""

Temp = GetHundreds (Right (MyNumber, 3))

If Temp "" Then Dollars = Temp & Place (Count) & Dollars

If Len (MyNumber) > 3 Then

MyNumber = Left (MyNumber, Len (MyNumber)-3)

Else

MyNumber = ""

End If

Count = Count + 1

Loop

Select Case Dollars

Case ""

Dollars = "No Dollars"

Case "One"

Dollars = "One Dollar"

Case Else

Dollars = Dollars & "Dollars"

End Select

Select Case Cents

Case ""

Cents = "and No Cents"

Case "One"

Cents = "and One Cent"

Case Else

Cents = "and" & Cents & "Cents"

End Select

SpellNumber = Dollars & Cents

End Function

'Converts a number from 100-999 into text

Function GetHundreds (ByVal MyNumber)

Dim Result As String

If Val (MyNumber) = 0 Then Exit Function

MyNumber = Right ("000" & MyNumber, 3)

'Convert the hundreds place.

If Mid (MyNumber, 1,1) "0" Then

Result = GetDigit (Mid (MyNumber, 1,1)) & "Hundred"

End If

'Convert the tens and ones place.

If Mid (MyNumber, 2,1) "0" Then

Result = Result & GetTens (Mid (MyNumber, 2))

Else

Result = Result & GetDigit (Mid (MyNumber, 3))

End If

GetHundreds = Result

End Function

'Converts a number from 10 to 99 into text.

Function GetTens (TensText)

Dim Result As String

Result = "" 'Null out the temporary function value.

If Val (Left (TensText, 1)) = 1 Then'If value between 10-19.

Select CaseVal (TensText)

Case 10: Result = "Ten"

Case 11: Result = "Eleven"

Case 12: Result = "Twelve"

Case 13: Result = "Thirteen"

Case 14: Result = "Fourteen"

Case 15: Result = "Fifteen"

Case 16: Result = "Sixteen"

Case 17: Result = "Seventeen"

Case 18: Result = "Eighteen"

Case 19: Result = "Nineteen"

Case Else

End Select

Else'If value between 20-99...

Select CaseVal (Left (TensText, 1))

Case 2: Result = "Twenty"

Case 3: Result = "Thirty"

Case 4: Result = "Forty"

Case 5: Result = "Fifty"

Case 6: Result = "Sixty"

Case 7: Result = "Seventy"

Case 8: Result = "Eighty"

Case 9: Result = "Ninety"

Case Else

End Select

Result = Result & GetDigit _

(Right (TensText, 1)) 'Retrieve ones place.

End If

GetTens = Result

End Function

'Converts a number from 1 to 9 into text.

Function GetDigit (Digit)

Select CaseVal (Digit)

Case 1: GetDigit = "One"

Case 2: GetDigit = "Two"

Case 3: GetDigit = "Three"

Case 4: GetDigit = "Four"

Case 5: GetDigit = "Five"

Case 6: GetDigit = "Six"

Case 7: GetDigit = "Seven"

Case 8: GetDigit = "Eight"

Case 9: GetDigit = "Nine"

Case Else: GetDigit = ""

End Select

End Function

How to use the SpellNumber sample function

To use this sample function to change a number to written text, use one of the methods demonstrated in the following example:

Go back to the top

Method 1: enter directly

You can change 32.50 to "Thirty Two Dollars and Fifty Cents" by entering the following formula into the cell:

= SpellNumber (32.50)

Go back to the top

Method 2: cell reference

You can reference other cells in the workbook. For example, enter the number 32.50 in cell A1, and then type the following formula in another cell:

= SpellNumber (A1)

Go back to the top

Method 3: paste function or insert function

You can use paste function (in Excel 2000 and Excel 2002) or insert function (in Excel 2003) to enter custom functions into the worksheet.

The above is all the contents of the article "how to convert VBS into English". Thank you for reading! I believe we all have a certain understanding, hope to share the content to help you, if you want to learn more knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.